Sie möchten eine Sicherungskopie einer Datei speichern -

den Dateiname aus Datum und Uhrzeit zusammensetzen - ?

Um eine Sicherungskopie Ihrer Datei zu erstellen und zu speichern bietet es sich an den "Zeitstempel" aus Datum und Uhrzeit zusammen zu setzen.

Auf diesem Wege erscheinen die Dateien auch sauber sortiert in der Ordnerstruktur des Verzeichnisses.

Nutzen Sie nachstehendes Makro

 

Option Explicit


Sub Sicherungskopie_speichern()
Dim NeudatName As String
Dim msg As String
Dim Jetzt As Date
Jetzt = Now()
NeudatName = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
NeudatName = NeudatName & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), "00") & Format(Second(Jetzt), "00")
ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & NeudatName & ".xls")
msg = MsgBox("Datei wurde unter " & (ThisWorkbook.Path & "\" & NeudatName & ".xls") & " gespeichert")
End Sub