Hallo alle,
mein Problem ist im Code formuliert:
(Verweis auf Microsoft Visual Basic for Applications Extensibility 5.3 ist
natürlich gesetzt)

Sub Neue_Mappe_mit_OpenProzedur_anlegen()
Dim WB As Workbook
Dim VBC_WB As Object
Set WB = Workbooks.Add
Set VBC_WB = WB.VBProject.VBComponents("DieseArbeitsmappe") 'deutsches
Betriebssystem
'Set VBC_WB = WB.vbprject.VBComponents.Item("ThisWorkbook")
'englisches Betriebssystem
'Set VBC_WB = WB.vbprject.VBComponents.Item("mir nicht bekannt")
'französisches Betriebssystem
'Set VBC_WB = WB.vbprject.VBComponents.Item("mir nicht bekannt")
'russisches Betriebssystem
' etc.
'
' Mein Problem (Dr. Frank Petschke, fpetschke*t-online.de):
' Ich benötige dringend eine Lösung, bei der ("Name")
' unabhängig vom lokalen Betriebssystem
' stets richtig zwischen die Klammern eingesetzt wird !!
'
With VBC_WB.CodeModule
.InsertLines 3, "Private Sub Workbook_Open()"
.InsertLines 4, " MsgBox ""Hallo Codebook-Leser"""
.InsertLines 5, "End Sub"
End With
End Sub

Hallo Frank,
die Anweisung lautet:

Set VBC_WB = WB.VBProject.VBComponents(1).Name

Anmerkung:
Egal welche Komponente dem VBA-Projekt hinzugefügt oder wie es benannt
wird, die VBA-Komponente(1) ist stets das Codemodule der Arbeitsmappe
(ThisWorkbook, DieseArbeitsmappe etc.).


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen
--
(ehem. MVP für Excel)
Website: www.xl-faq.de
Microsoft - Excel, Bedingte Formatierung, ISBN: 978-3-86645-806-2

Danke Frank!

"Frank Arendt-Theilen" schrieb im Newsbeitrag
news:80c5f5petljm1nba4njopiaf2rdv9im9ta*4ax.com...
> Hallo Frank,
> die Anweisung lautet:
>
> Set VBC_WB = WB.VBProject.VBComponents(1).Name
>
> Anmerkung:
> Egal welche Komponente dem VBA-Projekt hinzugefügt oder wie es benannt
> wird, die VBA-Komponente(1) ist stets das Codemodule der Arbeitsmappe
> (ThisWorkbook, DieseArbeitsmappe etc.).
>
>
> Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
> Frank Arendt-Theilen
> --
> (ehem. MVP für Excel)
> Website: www.xl-faq.de
> Microsoft - Excel, Bedingte Formatierung, ISBN: 978-3-86645-806-2

On 5 Nov., 11:14, "Frank Petschke" <fpetsc...*hotmail.com> wrote:

> * *Set VBC_WB = WB.VBProject.VBComponents("DieseArbeitsmappe") *'deutsches
....
> * *' Mein Problem (Dr. Frank Petschke, fpetsc...*t-online.de):
> * *' Ich benötige dringend eine Lösung, bei der ("Name")
> * *' unabhängig vom lokalen Betriebssystem
> * *' stets richtig zwischen die Klammern eingesetzt wird !!
Ich denke mal das das Codemodul der Mappe generell das erste ist, ich
bin mir nicht sicher bitte probieren.

Eine Ereignisprozedur kann man über CreateEventProc erstellen, dann
braucht man sich um den Rumpf und die Position nicht zu kümmern,
sondern braucht nur den Inhalt der Sub einzufügen.

Andreas.

Sub Test()
Dim WB As Workbook, CM As CodeModule
Dim S As String, I As Long

'Mappe hinzu
Set WB = Workbooks.Add
'Codemodul "DieseArbeitsmappe"
Set CM = WB.VBProject.VBComponents(1).CodeModule
'Zeilennummer des Kopfes der WorkBook_Open
I = CM.CreateEventProc("Open", "Workbook")
'Code hinzufügen, mehrere Zeilen mit vbCrLf anfügen
S = " MsgBox ""Hallo Codebook-Leser""" & _
vbCrLf & " MsgBox ""schön das Du mal vorbeischaust"""
CM.InsertLines I + 1, S
End Sub

Sorry,
die Anweisung müsste richtiger lauten:

Set VBC_WB = WB.VBProject.VBComponents(1)


Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen
--
(ehem. MVP für Excel)
Website: www.xl-faq.de
Microsoft - Excel, Bedingte Formatierung, ISBN: 978-3-86645-806-2