Hallo,
ich hatte heute Vormittag schon mal die Frage gestellt, wie ich Code in ein neu erstelltes Tabellenblatt per Makro kopieren kann.
Ich mach dies nun über folgenden Code:
With ThisWorkbook.VBProject
With .vbcomponents("blabla").codemodule
txt = .Lines(1, .CountOfLines)
End With
Application.DisplayAlerts = False
With .vbcomponents(Sheets("outgoListe").CodeName).codemodule
If .CountOfLines größer 0 Then
.DeleteLines 1
End If
.AddFromString txt
End With
End With
************************
Dies funktionert allerdings nur wenn ich im Haltemodus per F8 durchgehe, ansonsten wird der Code nicht reinkopiert.
Und wenn ich im Haltemodus durchgehe, dann kommt die Fehlermeldung "Wechsel in den Haltemodus ist zu diesem Zeitpunkt nicht möglich" und zwar an der Stelle ".AddFromString txt"
Und wenn ich anschließend auf Fortfahren gehe kommt die Meldung "Systemfehler" und ein paar Ziffern dahinter. Aber der code wird trotzdem rüberkopiert
Sehr seltsam alles, aber ich hoffe ihr könnt mir helfen!
danke, grüße
sepp