Ich habe wieder einmal ein Frage. Mit folgendem Code speichere ich das aktive Blatt in einer neuen Datei.
Kann ich irgendwie erreichen, dass nach dem Speichern die Kopie geschlossen wird und die Quelldatei geöffnet ist.
Sub Blattspeichern()
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:="D:\Eigene Dateien\" & ActiveSheet.Name & ".xls"
End Sub
Danke für die Hilfe!
mfg, Andreas