Hilfe bei einem Code
10.07.2020 11:33:18
Tim
ich habe vom Klaus diesen netten Code bekommen.
Er macht täglich ein Backup in einem Ordner.
Leider habe ich dazu noch eine Frage:
Wo muss ich den Pfad eingeben ?.
ich habe den neuen Ordner angelegt da wo es den Backup speichen soll: L/Lager/Bereich/Urlaub/Backup
Sub BackUp() 'ein Backup Verzeichnis erstellen und eine Backupdatei darin speichern
Dim strVerzeichnis As String
Application.ScreenUpdating = False
strVerzeichnis = ActiveWorkbook.Path & "\Backup\"
If Dir(strVerzeichnis, vbDirectory) = "" Then
'wenn kein Verzeichnis vorhanden, dann Verzeichnis anlegen und Sicherungskopie _
speichern
MkDir strVerzeichnis
ThisWorkbook.SaveCopyAs Filename:=strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
Else
'wenn Verzeichnis vorhanden dann Sicherungskopie anlegen
ThisWorkbook.SaveCopyAs Filename:=strVerzeichnis _
& Split(ActiveWorkbook.Name, ".xlsm")(0) & "_" & "Backup_" _
& Format(Now, "yyyy_mm_dd") & ".xlsm"
End If
Application.ScreenUpdating = True
End Sub
Tim
Anzeige