Zeitgestempelte Sicherungskopie der Arbeitsmappe

Sub SicherungskopieErstellen()
    If ThisWorkbook.Path = "" Then
        MsgBox "Bitte die Arbeitsmappe zuerst speichern.", vbExclamation
        Exit Sub
    End If
    Dim ziel As String
    ziel = ThisWorkbook.Path & "\Backup_" & Format(Now, "yyyymmdd_hhnnss") & "_" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs ziel
    MsgBox "Sicherung erstellt:" & vbCrLf & ziel, vbInformation
End Sub