Ein einzelnes Arbeitsblatt als neue Datei speichern (Tipp_73) -
02.11.2008Wenn Sie aus einer geöffneten Excel-Datei das gerade aktive Arbeitsblatt separat als eine neue Datei abspeichern wollen, können Sie das bequem von folgendem Makro erledigen lassen:
Sub Blatt_als_Datei()
datname = InputBox("Dateiname:")
ActiveSheet.Copy
ActiveWorkbook.SaveAs datname
ActiveWorkbook.Close
End Sub