alle Sheets kopieren und in neue Datei einfügen
03.12.2004 14:18:19
Christian
ich möchte aus einer Arbeitsmappe alle sheets in eine neue datei kopieren.
Sub Kopieren()
ThisWorkbook.Sheets.Copy
Workbooks("Kopie.xls").Activate
With ActiveWorkbook
.Paste
End With
End Sub
Wenn ich das Makro ausführe passiert folgendes. Alle Sheets werden kopiert und dann wird eine neue Datei geöffnet und darin werden die Sheets eingefügt, nicht in mein Kopie.xls
Und am ende des Makros erhalte ich: Objekt unterstützt diese Eigenschaft nicht.
Kann mir jemand helfen?
Danke
christian
Anzeige