Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro per Makro in DieseArbeitsmappe einfügen

Makro per Makro in DieseArbeitsmappe einfügen
10.08.2004 12:18:32
Russi
Hallo Leute!
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro per Makro in DieseArbeitsmappe einfügen
10.08.2004 12:42:49
Nepumuk
Hallo Russi,
versuch es mal so:


Sub test()
    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("DieseArbeitsmappe").CodeModule.AddFromString StrMakroText
    ActiveWorkbook.SaveAs Pfad & "\Update.xls"
    ActiveWorkbook.Close False
End Sub


Gruß
Nepumuk
Anzeige
AW: Makro per Makro in DieseArbeitsmappe einfügen
10.08.2004 12:48:03
Russi
Hallo Nepumuk!
Es funktioniert! Danke Dir herzlich!!!
Viele Grüße
Russi
www.Russi.de.tt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige