Hallo Zusammen
Ich bin neu in diesem Forum, habe jedoch schon oft von anderen Beiträgen profitieren können.
Jetzt ist bei mir ein Problem aufgetreten, welches ich so noch nirgends genau gefunden habe.
Mit dem untenstehenden Code will ich erreichen, dass bei jedem Speichervorgang eine Kopie der Excel-Datei erzeugt wird:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Save
ActiveWorkbook.SaveCopyAs Filename:= _
ThisWorkbook.path & "\Backup\OPT_EHB_" & Format(Now, "YYYY.MM.dd hh.mm") & ".xlsm"
Cancel = True
Application.EnableEvents = True
End Sub
Dies funktioniert auch beim ersten Speichern. Bei einem allfälligen zweiten Speichervorgang stürzt Excel jedoch ab ("Microsoft Office Excel funktioniert nicht mehr..")
Klingt alles eigentlich ja banal aber irgendwie kriege ich das nicht hin.
Hat jemand schon einmal dasselbe Problem gehabt oder fällt jemandem gerade etwas auf?
Vielen Dank zum Voraus.
Freundliche Grüsse
Stefan
|