Sicherungskopie in einem anderen Verzeichnis
Markus
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