Wie sieht ein Code für ein Button aus, mit dem ich eine Datei als xltm speichere?
Dabei soll der Name fest vorgegeben werden, der Ordner frei wählbar.
Leider komme ich da nicht weiter...
Danke für Eure hilfe.
Gruß
Tommy
Dim Dateiname, datei
Application.DisplayAlerts = False
Dateiname = ("Testmappe.xltm")
datei = "D:\" & Dateiname
ThisWorkbook.SaveAs datei
Application.Dialogs(xlDialogSaveAs).Show (Dateiname)
ChDir "H:\Daten\MS_Vorlagen"
ActiveWorkbook.SaveAs Filename:="H:\Daten\MS_Vorlagen\blablabla.xltm", _
FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Wichtig dabei ist diese Angabe: