Sicherungskopie erstellen
05.05.2006 09:33:16
Werner
mit dem untenstehenden Makro möchte ich Sicherungskopien erstellen, das geht auch aber bekomme diese Problemmeldung.
Microsoft Office Excel hat ein Problem festgestellt und muss beendet werden.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ort = ActiveWorkbook.Path
ort = ort & "\" & "Test_WZB.xls"
s = Format(Now, "dd-mm-yyyy_hh-mm-ss")
mappe = "C:\Test_WZB" & "." & s & ".xlk"
ActiveWorkbook.SaveAs Filename:=mappe, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=ort, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub
Gruss Werner