ich erstelle aus einer festen Mappe ("produktion.xls") raus mit VBA ein neues Tabellenblatt mit Daten für unsere Buchhaltung ("LSMW20071029"). Die produktion.xls dient dabei auch als Archiv. Eine Kopie des gerade per VBA erstellten "LSMW"-Blattes (wsBlattOut) soll dann in einer separaten Datei gespeichert werden (Name wie Blatt).
Als letzte Befehle im Makro hab ich derzeit:
' Originaltabelle sichern
ActiveWorkbook.Save
' Speichern Kopie für Buchhaltung
strAbbruch = Application.Dialogs(xlDialogSaveAs).Show(strOutDatei)
If strAbbruch = False Then
Exit Sub
End If
Allerdings speichert mir dies ja eine Kopie der kompletten Mappe und ich müßte hinterher in dieser neu gespeicherten Mappe alle Blätter bis auf das wsBlattOut und das VBA-Projekt löschen.
Gibt es keine einfachere Möglichkeit, das Blatt wsBlattOut in eine neue leere Mappe zu kopieren und dabei den Dialog "Speichern unter" zu nutzen?
Danke und Gruß
Thomas