Blätter kopieren
17.03.2004 21:50:08
sergiesam
ich habe ein Problem beim Kopieren von Blättern. Wenn ich unten stehenden Code für 10 Durchläufe verwende klappt es super. Wenn ich es aber mit 60 Durchläufen mache, kommt es zur Fehlermeldung "Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden (Fehler-Nr. 1004)". Hat jemand eine Idee?
Befehl zum Kopieren einer Vorlage:
for i = 1 to 60
ActiveWorkbook.Worksheets("Vorlage").Copy After:=Worksheets(ActiveWorkbook.Sheets.Count)
danach wird das neue Blatt umbenannt:
Set newSheet = ActiveSheet
newSheet.name = "Kopie " & i
next i
Vielen Dank,
Sam