2 Makros in...

Forumthread: 2 Makros in...

2 Makros in...

08.12.2015 12:19:02

walter

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 Makros in...

08.12.2015 12:41:47

Sepp
Habe eingesetzt aber Falsch

08.12.2015 13:25:50

walter
AW: Habe eingesetzt aber Falsch

08.12.2015 13:38:10

Rudi
Super Danke Rudi ! -)

08.12.2015 14:11:18

walter

AW: 2 Makros in...

08.12.2015 12:41:47

Sepp

Hallo Walter,
deine String-Variable enthält ja auch nur den zweten Wert, weil du ihn ganz einfach überschreibst.
Beim zweiten Mal so.

StrMakroText = StrMakroText & '..zweiter Text

Gruß Sepp

Habe eingesetzt aber Falsch

08.12.2015 13:25:50

walter

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

AW: Habe eingesetzt aber Falsch

08.12.2015 13:38:10

Rudi

Hallo,
so geht das:

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

Gruß
Rudi

Super Danke Rudi ! -)

08.12.2015 14:11:18

walter

Beliebteste Forumthreads (12 Monate)

Forumthread: 2 Makros in...

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread