Ich habe ein kleines Problem:
Ich möchte aus einer Arbeitsmappe einzelne Datenblätter abspeichern. Dies funktioniert mittels Makro einwandfrei, doch ich beisse mir die Zähne daran aus, wie ich ein spezielles Modul mit den einzelnen Tabellen abspeichern kann.
Denn ohne dieses Modul werden einige Daten in den einzelnen Tabellen nicht mehr angezeigt. Es ist etwas lästig dieses Modul in jede Datei per Hand einfügen zu müssen. Gibt es einen Befehl, wie ich es gleich mit speichern kann?
Ich verwende diesen code zum Speichern. Ist er für das Modul erweiterbar, oder ist eine andere Lösung besser? :
Sub Blattspeichern()
Dim s As String
Application.DisplayAlerts = False
ChDir "" & ActiveSheet.Range("F5") & "_" & activeSheet.Range("F4") & "\"
ActiveSheet.Copy
s = ActiveSheet.Range("B5") & "_" & ActiveSheet.Range ("F5") & "_" & ActiveSheet.Range("F4") & ".xls"
ActiveWorkbook.SaveAs Filename:=s
End Sub
Bin für jede Hilfe dankbar.
Gruß, Sascha