Fehler bei SaveCopyAs
24.05.2020 09:16:34
MarC
ich möchte beim schließen meiner Datei automatisch eine Sicherheitskopie im Ordner 000_Archiv ablegen. Leider funktioniert der unten abgebildete Code nicht. Ich erhalte immer die Meldung Laufzeitfehler 1004 Datei kann nicht gefunden werden. Kann mir bitte jemand sagen was daran falsch ist? Ich bin fest davon ausgegangen dass das stimmt.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Me.SaveCopyAs "C:\Users\xxxxxxxx\Desktop\xxxxxxxx\000_Archiv\" & "Mappe1" & " - " & Format(Date, _
"yyyy.mm.dd hh:mm") & " (" & Application.UserName & ").xlsm"
End Sub