Sicherungskopie einer Datei mit Datumszusatz speichern

Um eine Sicherungskopie einer Datei zu erstellen und zu speichern bietet es sich an den “Zeitstempel” im Dateinamen aus Datum und Uhrzeit zusammen zu setzen.

Liegen diese Sicherungen alle in einem Ordner, lassen Sie sich auch sehr einfach nach Datum sortieren.

Dazu nutze ich diesen CodeOption 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

Share on Facebook

Read more http://vba-codeschnipsel.de/sicherungskopie-einer-datei-mit-datumszusatz-speichern/