2 Makros in...

Guten Tag liebe Fachfrauen und Männer,
ich möchte gern 2 Makros in die neue Datei per Makro
reinschreiben.
Mit einem gelingt mir aber mit 2 nicht !!!
Sub Arbeitsmappe_Makro_schreiben_Neu()
Dim StrMakroText
StrMakroText = _
"


Private Sub Workbook_Open()" & Chr(10) & _
"    Call Ausführen" & Chr(10) & _
"End Sub

"
Hier das 2. Makro:
StrMakroText = _
"


Public Sub Ausführen()" & Chr(10) & _
"    Dim Password As String" & Chr(10) & _
"    Password = ""mb" & Chr(10) & _
"    ....usw.
"End Sub

"
ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString StrMakroText
End Sub
Es erscheint nur das 2. Makro !
Wenn ich das 2. Makro wieder lösche,
erscheint, wie bisher, das 1.Makro.
mfg
walter mb

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
habe wie anbei eingesetzt, kommt nur das Wort FALSCH:
Sub Arbeitsmappe_Makro_schreiben_Neu()
' Workbooks.Add
Dim StrMakroText
StrMakroText = _
"


Private Sub Workbook_Open()" & Chr(10) & _
"    ActiveSheet.CommandButton5.Enabled = True" & Chr(10) & _
"    Call Makro_Ausführen" & Chr(10) & _
"End Sub

" & Chr(10) & _
StrMakroText = StrMakroText & _
"


Public Sub Makro_Ausführen()" & Chr(10) & _
"    Dim Password As String" & Chr(10) & _
"    Password = ""mb" & Chr(10) & _
"    ThisWorkbook.VBProject.VBComponents(""Tabelle5"").CodeModule.CodePane.Show" &  _
Chr(10) & _
"    SendKeys ""%xi" & Chr(10) & _
"End Sub

"
ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString StrMakroText
End Sub mfg
walter mb

Sub Arbeitsmappe_Makro_schreiben_Neu() ' Workbooks.Add Dim StrMakroText StrMakroText = _ "Private Sub Workbook_Open()" & Chr(10) & _ " ActiveSheet.CommandButton5.Enabled = True" & Chr(10) & _ " Call Makro_Ausführen" & Chr(10) & _ "End Sub" & Chr(10) & Chr(10) StrMakroText = StrMakroText & _ "Public Sub Makro_Ausführen()" & Chr(10) & _ " Dim Password As String" & Chr(10) & _ " Password = ""mb" & Chr(10) & _ " ThisWorkbook.VBProject.VBComponents(""Tabelle5"").CodeModule.CodePane.Show" & _ _ Chr(10) & _ " SendKeys ""%xi" & Chr(10) & _ "End Sub" ActiveWorkbook.VBProject.VBComponents("DieseArbeitsmappe").CodeModule.AddFromString _ StrMakroText End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Makros in...

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread