Tabellenblatt als Datei erstellen
19.11.2008 16:33:00
Kurt
habe übers Forum dieses Makro, für das erstellen einer Tabelle als
eigenständige Datei.
Das übernehmen des Tabellennames und das erstellen des Dateinamens funktioniert.
Allerdings bleibt die neue Mappe stehen und wird nicht gespeichert.
Warum ?
Sub BlattSpeichern()
Dim TBName$, WBName$
Dim tan
tan = ActiveSheet.Name
TBName = InputBox("Blattname:", "Datei erstellen", tan)
If TBName = "" Then Exit Sub
WBName = InputBox("Dateiname übernehmen oder ändern ?", _
"Dateinamen erstellen", tan & " vom " & Format(Date, "YYYY.MM.DD") & ".xls")
If WBName = "" Then Exit Sub
Worksheets(TBName).Copy
ActiveWorkbook.SaveAs WBName
End Sub
mfg Kurt P
Anzeige