Hallo zusammen
Ich möchte in meiner Excel-Datei die Möglichkeit einbauen, über Command Buttons die Datei als *.xlsm oder als *.xltm zu speichern.
Für die Variante *.xlsm funktioniert das so sehr gut:
Sub xlsm_speichern()
Set oWSH = CreateObject("WScript.Shell")
Path_Desktop = oWSH.SpecialFolders("Desktop")
ChDir Path_Desktop
FileToSaveAs = Application.GetSaveAsFilename(InitialFileName:="MeineDatei", FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
End Sub
Das "Speichern unter"-Fenster wird geöffnet und das Dateiformat wird auf *.xlsm beschränkt.
Aber leider funktioniert das so für *.xltm nicht:
FileToSaveAs = Application.GetSaveAsFilename(InitialFileName:="MeineDatei", FileFilter:="Excel Macro-Enabled Template (*.xltm), *.xltm")
Das "Speichern unter"-Fenster wird zwar geöffnet und das Dateiformat wird auf *.xltm beschränkt. Und nach Klick auf "Speichern" wird das "Speichern unter"-Fenster geschlossen.
Aber die Datei wird nicht gespeichert!
Kann mir da jemand weiterhelfen?
Danke und Gruß
Heiko1985