Einzelnes Tabellenblatt speichern mit Makro
11.11.2003 10:56:03
Gunter
ich habe eine Excel Datei mit mehreren Tabellenblättern. In einem davon mache ich Abfragen. Wie kann ich NUR dieses eine Tabellenblatt in einer neuen Datei speichern? Ist wichtig, weil ich die Dateigröße klein halten will!!Wichtig ist, die Ursprungsdatei darf nicht verändert werden und sollte auch als aktuelle Datei wieder zur Verfügung stehen. Für den Pfad und die Namensgebung der neuen Datei verwende ich folgendes Makro:
Sub Speichern()
Const s = "J:\_schueco_divers"
Dim bm
bm = InputBox("Dateiname:", "Speichern als", Format(Now, "yyyy-mm-dd") & "-Bestellung")
ThisWorkbook.SaveAs s & "\" & "-" & bm & ".xls"
End Sub