Hallo zusammen
Aus dem Forum erhielt ich folgenden Code, um per VBA ein Makros in eine durch VBA zu erstellendes Blatt zu schreiben:
Const WS As String = "Bahnhöfe"
Dim VBC As Object
Dim LineNr As Integer
With Workbooks("Mappe1").VBProject.VBComponents(Worksheets(WS).CodeName).CodeModule
LineNr = .CreateEventProc("SelectionChange", "Worksheet")
.InsertLines LineNr + 1, " "
'usw
End With
Wenn ich nun beim Start des Makros den VBA-Editor nicht geöffnet habe, erhalte ich eine Fehlermeldung "Index ausserhalb ..." und der Code stoppt bei
With Workbooks("Mappe1").VBProject.VBComponents(Worksheets(WS).CodeName).CodeModule
Wie kann ich das beheben?
Danke und Gruss
Gregor