Hallo,

ich bin gerade daran, eine Lösung zu finden, wie ich eine Datei beim Abspeichern gleich zusätzlich als .html-Datei im gleichem Ordner ablege. Bin mit meinem Code auch schon fast am Ziel, leider stürzt jedoch Excel 2010 beim Ausführen ab.

Option Explicit

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 Application.EnableEvents = False

 ThisWorkbook.Save

 Application.DisplayAlerts = False

 ThisWorkbook.SaveAs "c:\temp\test.html", FileFormat:=xlHtml
      
 Application.DisplayAlerts = True

 Application.EnableEvents = True

End Sub

Kann mir jemand helfen, wo mein Fehler ist?

Vielen Dank und viele Grüße,

Christine.