Tägliches backup

[Käpt'n Blaubär]

Hallo Ralf,

stimmt, frisch ausgeruht sieht manches manchmal anders aus..

[Nixblick0815]

Code:

Sub Mein_Makro()
ActiveWorkbook.SaveCopyAs Filename:= _
  "C:\Dokumente und Einstellungen\irgendwas\Eigene Dateien\Sicherung\" & "Sicherung  " & Format(Now, "dd-MM-yyyy_hh-nn") & ".xlsm"
End Sub

Gruß Ralf

Bei mir wird nur in \GmbH Vordrucke\ gespeichert aber nicht in den Unterordner---wie kann dies sein?

Code:

Private Sub Workbook_Open()
ActiveWorkbook.SaveCopyAs Filename:= _
("Y:\GmbH Vordrucke\Backup ToDoListe\" & "Sicherung  " & Format(Now, "dd-MM-yyyy") & ".xls")
End Sub