Office: Laufzeitfehler beim Sheet kopieren

Hallo!

Ich habe mehrere Excel-Makros, die mittels folgenden VBA-Befehl ein Sheet einer geöffneten Arbeitsmappe in ein Sheet einer anderen geöffneten Arbeitsmappe kopieren:

Workbooks(original).Worksheets(1).Copy After:=Workbooks(name_neues_workbook).Worksheets(Workbooks(name_neues_workbook). Worksheets.Count)
Workbooks(name_neues_workbook).Sheets(Workbooks(name_neues_workbook).Worksheets. Count).Name = "LV"

Unter XP + Office 2003 hat das immer problemlos funktioniert. Unter Vista + Office 2007 gab es anfangs auch keine Probleme. Dabei habe ich es aber nur mit bereits älteren (unter 2003) erzeugten Dateien probiert (die Datei, von der das Sheet kopiert werden soll).
Die Dateien, welche unter Excel 2007 erzeugt worden sind, kann ich nun aber nicht mehr kopieren (weder unter Excel 2007 noch unter Excel 2003). Excel bricht mir bei obiger Code-Zeile immer mit folgender Fehlermeldung ab:

Laufzeitfehler '1004': Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden.

Ich habe schon nach diesem Fehler gegoogelt, aber alle Hinweismeldungen, die ich finde, deuten nur auf dieses Problem hin, wenn man sehr viele Sheet nacheinander kopieren möchte. Bei meinen Makros werden aber immer nur ein od. höchstens zwei Sheets (von verschiedenen Arbeitsmappen) kopiert.

Das eigenartige ist, dass es bei keinem neuen Sheet funktioniert, egal ob die Datei im xls-Format od. xlsx-Format abgespeichert ist. Ich kann einfach keine Unterschiede zu den älteren Dateien, bei denen es nach wie vor funktioniert, feststellen.

Hat irgendwer eine Idee? Weiß schon echt nicht mehr weiter.

lg
Tom

:)

 

hiho

vgl.
http://www.ms-office-forum.de/forum/...d.php?t=256178

wird wohl daran liegen vermute ich mal stark

 

War ein guter Hinweis, aber daran liegt es leider nicht (trotzdem danke).

Ich bekomme auch eine andere Fehlermeldung als in dem anderen Thread. Die Fehlermeldung des anderen Thread kann ich reproduzieren, wenn ich xlsx-Dateien in die neue Datei kopieren möchte, die standardmäßig im Kompatibilitätsmodus läuft.

Wenn ich aber die neue Datei (wie im anderen Thread beschrieben) speichere, schließe und neu öffne, bekomme ich wieder meine ursprüngliche Fehlermeldung. Ebenso wenn ich nur Sheets von xls-Dateien in das neue Arbeitsblatt kopiere.

Sehr seltsam ist, dass sich die Sheets von den älteren Dateien alle problemlos kopieren lassen, egal ob ich diese als xls oder xlsx abspeichere. Die neueren Dateien aber funktionieren nicht, weder als xls noch xlsx.

Bin echt schon ratlos...

 

hiho

komische Sache!
sind in der Mappe irgendwelche Diagrammsheets oder ausgeblendete Sheets?

versuche mal statt worksheets.count
sheets.count

Ansonsten keine Idee im Moment.

 

Hallo!

Ob "Sheets" oder "Worksheets" macht keinen Unterschied, habe mehrere Varianten ausprobiert.
Es sind auch keine Diagramme od. ausgeblendete Sheets in den Mappen.

Ich bin mittlerweile draufgekommen, dass es funktioniert, wenn ich den Inhalt der nicht funktionierenden Sheets kopiere und in eine neue Arbeitsmappe einfüge.
Die Arbeitsmappe einfach mit "Speichern unter" neu abspeichern, hilft nicht.

 

Hallo Tom

könntest du so eine kaputte Mappe hochladen (ohne Inhalt)
vielleicht finde ich den Fehler
würde mich echt interessieren was da in der Mappe schief läuft.

 

Hallo chris-kaiser!

Ich habe zwei Dateien hochgeladen. Das Sheet in der Datei_Ok.xls kann man ganz normal kopieren, beim Sheet in Datei_NOT_OK.xls kommt es zu besagten Fehler.

Ich bin gespannt, ob du einen Unterschied rausfindest.

lg
Tom

 

hi

ja habe ich, in der not_Ok
gibt es ein sehr verstecktes Blatt mit dem Namen

ExistingRangeDetails

an dem wird es wohl liegen.

drücke mal Alt+F11
dann siehst du dieses Blatt

 

Danke für den Hinweis! Ist mir selber nicht aufgefallen, da im Excel selber das Blatt nicht angezeigt wird und ich es daher auch nicht einblenden kann.

Was mir zu dem Problem führt: Wie kann ich dieses Tabellenblatt löschen? Im VBC-Code-Generator geht es nicht zu löschen und im Excel wird es mir gar nicht angezeigt.

Noch besser wäre natürlich, wenn ich überhaupt verhindern könnte, dass dieses geheime Blatt überhaupt angelegt wird. Offenbar wird es im Excel 2007 automatisch angelegt bei Excel-Dateien, die mittels eines Makros entstehen bzw. aus anderen Programmen erzeugt werden (in unserem Fall DPW bzw. BMD).

 

Hi,

du könntest ja mit einem Makro zuerst alle Blätter anzeigen lassen und dann das Blatt löschen.

Code:

Wenn es automatisch erzeugt wird, wird es wohl immer gleich heißen, oder?

Gruß

 

Hi knacko,

das funktioniert. Vielen Dank!

Zusätzlich überprüfe ich noch, ob das versteckte Blatt überhaupt vorhanden ist, bevor ich es lösche
Code:

End Sub