Sheet mit Formatierung ohne VBA copy
Mike
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
scheint irgendwie nicht mehr zu gehen. Jedenfalls kommt bei mir immer ein Fehler.
Kann mir jemand helfen?
Danke!
Anzeige