ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl=anzahl*12 'für die Monate
ergeben sollte es dann sowas in 3 Monatsabständen.
Daten_3
Daten_6
Daten_9
Daten_12
...
dabei sollen alle Formatierungen, Werte etc. übernommen werden. Jedoch nicht der Quellcode.
in der Art habe ich sowas
Sub kopieren()
anzahl_ws = Sheets.Count
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl = anzahl * 12
Application.ScreenUpdating = False
Sheets("Daten_1").Copy After:=Sheets(anzahl_ws)
ActiveSheet.Name = "Daten_X1"
Sheets("Daten_1").Copy After:=Sheets(anzahl_ws + 1)
ActiveSheet.Name = "Daten Monatlich"
For i = 0 To anzahl Step 3
Sheets("Daten_1").Copy After:=Sheets(anzahl_ws + 2)
ActiveSheet.Name = "Daten_" & i
Next i
Application.ScreenUpdating = True
End Sub
allerdings wird der Quellcode immer übernommen. Und der Befehl .VBComponents(i).CodeModule.DeleteLines 1, .VBComponents(i).CodeModule.CountOfLines scheint irgendwie nicht mehr zu gehen. Jedenfalls kommt bei mir immer ein Fehler.
Kann mir jemand helfen?
Danke!