Makro per Makro in DieseArbeitsmappe einfügen
10.08.2004 12:18:32
Russi
Für Euch bestimmt kein Problem ;-)
Mit beigefügtem Code will ich ein Workbook_Open-Makro in eine neue Arbeitsmappe einfügen. Der Code befindet sich jedoch in Tabelle1.
Was muss ich tun, damit er richtig unter DieseArbeitsmappe eingefügt wird?!?
Russi
workbooks.add
Dim StrMakroText
StrMakroText = _
"
Private Sub Workbook_Open()" & Chr(10) & _
" ActiveSheet.Shapes(""Object 1"").Select" & Chr(10) & _
" Selection.Verb Verb:=xlPrimary" & Chr(10) & _
"End Sub
"ActiveWorkbook.VBProject.VBComponents.Add (1)
ActiveWorkbook.VBProject.VBComponents(1).CodeModule.AddFromString StrMakroText
ActiveWorkbook.SaveAs Pfad & "\Update.xls"
ActiveWorkbook.Close False