Ich lege in einem Excel ein neues Tabellenblatt an und möchte dann in das neue Blatt ein Makro kopieren. Das soll mit einem Makro funktionieren.
Die Sache funktioniert im Prinzip. Der u.g. Code fügt ein Tabellenblatt ein und stellt auch das Makro auf das Blatt. Führt man den Code zweimal aus, dann läuft man in einen Fehler, da es "Tabelle1" schon gibt. Ich konnte das Problem leider auch nicht umgehen, in dem ich dem Blatt einen Namen gegeben habe, denn das VBA greift immer auf die "TabelleXX" zu und nicht auf den logischen Namen. Hat jemand eine Idee wie das Problem gelöst werden kann? Oder gibt es eine Möglichkeit abzufragen welches TabellenBlatt ich neu angelegt habe?
Hier der Code
' Blatt einfügen
Set Ziel = ThisWorkbook.Worksheets.Add
Ziel.Move after:=Sheets(Sheets.Count)
' Makro in Blatt kopieren
With Workbooks(wb1).VBProject.VBComponents("Tabelle1").CodeModule
x = .CreateEventProc("MyMakro_Change", "Worksheet")
.InsertLines x + 1, "MsgBox ""Hallo, Hallo !!!"""
End With