Habe hier im Forum einen folgenden Code gefunden, der eigentlich meinen Ansprüchen entspricht.
Wie muss man den Code anpassen, wenn die Sicherungskopie in einem anderen Verzeichnis (z.B.: C:\Backup" erstellt werden soll ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fn As String
If IsBackup Then Exit Sub 'nur wenn dies nicht schon eine Backup-Datei ist:
With ThisWorkbook
fn = .Path & "\" & _
"Nummernvergabe" & "_" & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xls"
Application.DisplayAlerts = False
.SaveCopyAs fn
Application.DisplayAlerts = True
End With
'Format(Date, "yy_mm_dd_min_sec")
End Sub
Gruss Markus