Tabellen kopieren
30.10.2003 20:05:42
Mario
habe folgendes Problem.
Ich möchte mit folgenden Makros das Tabellenblatt2 400 mal
kopieren.
Copy Methode erzeugt einen Fehler bei 255.
Sub Kopieren_Tabellenblatt()
Dim wks As Worksheet
Dim iCounter As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
For iCounter = 2 To 401
wks.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = iCounter
Next iCounter
Worksheets(1).Select
Application.ScreenUpdating = True
End Sub
Funktioniert nicht!
Sub NeueTabellen()
Dim iCounter, T, S As Integer
'For T = 1 To 12
For iCounter = DateSerial(2004, 1, 1) To DateSerial(2004, 12, 31)
Worksheets.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = iCounter
Next
End Sub
Funktioniert auch nicht
Vielen Dank für eure Hilfe.
Gruss Mario
Anzeige