WorkSheet in neues Workbook kopieren
19.08.2003 13:07:31
Joachim
ich steht forgende Aufgabe bedrückt mich, ich würde gerne die Daten eines Worksheets in ein neues Workbook kopieren. Folgendes Script ist nach einiger Recherche zusammengekommen:
Sub DatenbankInDateiExportieren()
Application.CutCopyMode = False
Workbooks("ProjektDB.xls").Worksheets("Datenbank").Copy
Workbooks.Add
ActiveSheet.Paste
Application.Dialogs(xlDialogSaveAs).Show "PDBexport" & Format(Date, "DDMMYYYY") & ".xls"
End Sub
... klappt aber irgendwie nicht! hat irgendwer ne Ahnung? Hab ich mich vielleicht zu allgemein ausgedrückt? Im Dabug-Mode sagt er, dass was mit dem Activesheet.Paste nich in ordnung ist, aber ich komm auf keine Lösung.
Vielen Dank schon mal im Vorraus und schöne Grüße, Joachim