Hallo,
habe ein wenig gebastelt, jetzt wird beim schließen der Datei auitomatisch gespeichert.
So weit, so gut - aber nur die .xlsm, die .htm leider nicht. Ich brauch nen Tip was ich hier falsch mache......
Der Code liegt in einem Modul unter "Allgemein" + "Workbook_Before Save" :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\TobiWahnKenobi\Desktop\Excel Testordner\Textbausteine_Versuch.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\TobiWahnKenobi\Desktop\Excel Testordner\Textbausteine_Versuch.html" _
, FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=True
Application.DisplayAlerts = False
Cancel = True
End Sub
Grüße,
Zimy
|