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
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Dies funktioniert auch beim ersten Speichern. Bei einem allfälligen zweiten Speichervorgang stürzt Excel jedoch ab ("Microsoft Office Excel funktioniert nicht mehr..")</span>
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Klingt alles eigentlich ja banal aber irgendwie kriege ich das nicht hin.</span>
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Hat jemand schon einmal dasselbe Problem gehabt oder fällt jemandem gerade etwas auf?</span>
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Vielen Dank zum Voraus.</span>
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Freundliche Grüsse</span>
<span style="display: inline !important; float: none; background-color: transparent; color: rgb(51, 51, 51); font-family: "Lucida Grande","Trebuchet MS",Verdana,Helvetica,Arial,sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; line-height: 18.2px; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;">Stefan</span>