Laufzeitfehler 1004 beim Tabellenblätter kopieren

Hallo, ich wünsche allen im Forum einen schönen Guten Morgen
Ich habe ein kleines Problem beim kopieren von Tabellenblättern.
Ich habe das Mastertabellenblatt (1) und will dieses z.B. 100 mal kopieren.
Dazu soll das neue Tabellenblatt vor dem bestehenden Tabellenblatt (Arbeit2) eingefügt werden, und die neuen Tabellenblätter sollen autmatisch mit einem Namen versehen werden (hier von "2" nummerisch aufsteigend bis "110").
Ich habe schon Code verfasst, aber nach dem er Blatt 32 erschaffen hat, bricht das Makro immer ab mit der Fehlermeldung "Laufzeitfehler 1004: Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden."
Ich hänge hier mal den Code an:


Sub Tabellenblaetter_kopieren()
' Tabellenblätter_kopieren Makro
Application.ScreenUpdating = False
Dim n, m, p, x, Punkt8, AnzahlKst, AnzahlKostart As Integer
'Hier muss noch die Anzahl der KoSt ermittelt werden
'Sheets("TAB").Select
'Range("E2").Select
'Cells(Rows.Count, xyz).End(xlUp).Row
'AnzahlKst = ActiveCell.Value
n = 5
m = 2
p = 5
x = 2
Punkt8 = 2
For i = 3 To 110
'Wählt das erste (Master) Tabellenblatt (1) aus und kopiert
'dieses so oft wie KoSt eingetragen sind in TAB und fügt
'jedes neue Tabellenblatt vor Blatt (ARBEIT2) ein
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-15
Sheets("1").Select
Application.CutCopyMode = False
Sheets("1").Copy Before:=Sheets(n)
'Bennent jedes neue Tabellenblatt um, aufsteigend von 1 beginnend
Sheets("1 (2)").Select
Sheets("1 (2)").Name = m
'Holt sich aus dem TAB Tabelle die einzelnen KoSt Nummern und trägt
'diese automatisch ein
Sheets("TAB").Select
[A1].Offset(x, 4).Select
Selection.Copy
Sheets(p).Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TAB").Select
Sheets("SAP Upload").Select
n = n + 1
m = m + 1
p = p + 1
x = x + 1
Punkt8 = Punkt8 + 1
Next
End Sub

Wäre schön wenn jemand eine Idee hat, wo das Problem liegt bzw. wie man es gelöst bekommt.
Ich danke bereits vorab, Feedback ist selbstverständlich.
Gruß Olli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hans
Also ich arbeite hier mit Excel 2003, ist auch alles damit erstellt worden.
Der Abbruch erfolgt jedoch sporadisch (mal früher mal später).
Dann muss ich Excel ganz schließen, sonst kann ich gar keine Tabellenbläter mehr kopieren, auch nicht von Hand.
Danke für den Tip mit der Variablendeklaration, habe es jetzt geändert, werde es mir merken.
Habe noch zwei mal versucht, einmal brach er nach 12 kopiervorgängen ab, einmal nach 38.
? kommt auch nicht mehr der Laufzeitfehler, er makiert nur die Spalte
Sheets("1").Copy Before:=Sheets(n)
gelb, und nichts geht mehr.
Vieleicht noch nee Idee?
und das mit den Selection Sequenzen hab ich irgendwie noch nicht ganz verstanden.
Die kann ich weg lassen und er weiß trozdem was er tun muss ?!?!?!?!
(dann mach ich vieleicht mal wieder Experimente, sicher den ursprünglichen Code, und
Bastell so lange an der Kopie rum bis es funktioniert .... oder nicht ;-)
Wäre aber über weitere Hilfe zum eigendlichen Problem sehr dankbar.
mfg Olli

Sub Tabellenblaetter_kopieren() Dim wks As Worksheet Dim rng As Range Application.ScreenUpdating = False Dim i As Integer, n As Integer, m As Integer, _ p As Integer, x As Integer, Punkt8 As Integer, _ AnzKst As Integer AnzKst = Worksheets("TAB").Cells(Rows.Count, 5).End(xlUp).Row m = 2 x = 2 For i = 1 To AnzKst Worksheets("1").Copy before:=Worksheets(5) ActiveSheet.Name = CStr(m) Sheets("TAB").Select Worksheets("TAB").Cells(x, 4).Copy Range("D2") m = m + 1 x = x + 1 Next End Sub

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 1004 beim Tabellenblätter kopieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread