Workbook_BeforeSave - Excel-Absturz
16.02.2007 09:45:29
Bertram
ich hab mal wieder ein Problem, das ich nicht nachvollziehen kann. In einer Datei habe ich folgenden Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strBez As String
'Fußzeile einfügen
If ActiveWorkbook.Saved = False Then Sheets(2).PageSetup _
.RightFooter = "&""Arial,Standard""&8saved by: " & _
Application.UserName & " " & Format(Date, "dd.MM.YYYY") '"&D &Th"
'Sicherungskopie erstellen
strBez = ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ("F:\Sicherungskopien\" & _
Left(strBez, Len(strBez) - 4) & " " & Format(Date, "dd.MM.YYYY") & " " & _
Application.UserName & ".xls")
End Sub
Sobald ich auf Datei-Schließen klicke, schmiert mir (fast) jedes Mal Excel komplett ab.
Ist der Code auskommentiert, tritt das Problem nicht auf. Kann mir jemand sagen woran das liegen könnte?
Gruß
Bertram