Ich habe mit folgendem Makro ein Problem bei der Ausführung. Ich möchte eine Arbeitsmappe mit ca. 100 Tabellenblättern kopieren und ich benörige auch eine "Wertkopie", da die Werte im Original aus einer Datenbank kommen.
Nun bekomme ich aber diese Fehlermeldung:
Laufzeitfehler 1004 - die Methode "Copy" für das Objekt "Sheets" ist fehlgeschlagen.
Hier das dazugehörige Makro:
Sub Speichern_In_neue_Datei()
Dim ws As Worksheet
Application.ScreenUpdating = False
ThisWorkbook.Sheets.Copy
For Each ws In ActiveWorkbook.Sheets
ws.Cells.Copy
ws.Cells.PasteSpecial Paste:=xlPasteValues
Next 'ws
Application.Dialogs(xlDialogSaveAs).Show "R:\UB\StbCo\_Alle\CO 2\ZBV\Auswertungen"
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Wo liegt der Fehler bzw. wie kann ich das Problem anders lösen?