Mein Sicherungsmakro geht ohne Fehler bis zum Ende.
Aber die erzeugten Dateien können nicht mehr geöffnet werden.
Fehlermeldung: Dateiformat stimmt nicht mehr.
Gruß Aton
Sub DateiSicherungsCoppy()
'Application.Calculation = xlAutomatic
Dim Pfad1 As String, Pfad2 As String, Datei1 As String, Datei2 As String, w As Variant
Pfad1 = ActiveWorkbook.Path & "\" ' Pfad der Orginal-Datei
Datei1 = ActiveWorkbook.Name ' Dateiname der Orginal-Datei
Pfad2 = "D:\Sicherungen\" 'Pfad zur Sicherung
Datei2 = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & Format(Now, " YYMMDD hhmm" _
) & Right(ActiveWorkbook.Name, 5) ' Dateiname der Sicherungs-Datei
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Pfad2 & Datei2, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=Pfad1 & Datei1, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
If Mid(Datei1, 1, 3) = "MS " Then
ActiveWindow.Visible = False
End If
'For Each w In Application.Workbooks ' Alle Dateien Sichern
' w.Save
'Next w
'Application.Quit
Application.DisplayAlerts = True
End Sub