Laufzeitfehler 1004 - Copy
Tom
ich habe ein VBA Script, welches weitere Teile mittels "Call" aufruft.
Die Scriptteile nehmen ein Tabellenblatt und kopieren dies in eine andere Excel-Datei und füllen dann einige Daten auf.
Dann wird das nächste Blatt kopiert...wieder in die selbe, andere Excel-Datei und wieder werden weitere Daten aufgefüllt.
Das kopierte Tabellenblatt ist im Grunde ein Muster.
Wie das kopierte Blatt umbenannt und welche Daten reingeschrieben werden sollen steht in der Masterdatei, welche eben auch das Muster mit enthält.
Das ganze wird im Master Zeile für Zeile abgearbeitet:
If (.Cells(lngZ, 1)) = "VRCom" And (.Cells(lngZ, 3)) = "leer" Then
Worksheets("VRC_leer_Muster").Copy After:=Sheets(1)
Mein Problem:
Wenn lngZ den Wert 249 angenommen hat, dann bekomme ich den Fehler (Laufzeitfehler 1004).
lngZ beginnt mit 4...nur so zur Info
Was mich wundert, wenn ich den Scriptteil in dem dies geschieht allein laufen lasse, dann bekomme ich diesen Fehler nicht. Wenn aber wie in meinem Script dies der 3 Call-Aufruf ist, dann bleibt das Script bei 249 hängen.
Woran kann das denn liegen? Kann ich das irgendwie beheben?
Die Zeile die dann bemängelt wird ist:
Worksheets("VRC_leer_Muster").Copy After:=Sheets(1)
Danke fürs helfen...
Der Tom