Automatische Sicherheitskopie einer Exel-Arbeitsmappe
Wie Sie immer eine Sicherheitskope der aktuellen Excel-Arbeitsmappe ablegen
Sie möchten dafür sorgen, dass beim Schließen einer Excel-Arbeitsmappe automatisch eine Sicherheitskopie der Datei an einem bestimmten Pfad abgespeichert wird? Per Makro ist das kein Problem. Zur Unterscheidung werden die Dateinamen nach dem folgenden Muster abgespeichert:
Jahr-Monat-Tag-Dateiname
Wenn also Ihre Datei beispielsweise Planung.xls heisst, wird die Sicherheitskopie vom heutigen Datum abgespeichert als:
2008-02-20-Planung.xls
Durch diese Namensgebung ist es ganz einfach, die Dateiliste chronologisch zu sortieren, weil die chronologische Reihenfolge automatisch auch die alphabetische ist. Setzen Sie das folgende Makro ein, um die Sicherheitskopie anzulegen:
Sub auto_close()
Dim Altname As String, Neuname As String, Pfad As String
Pfad = "C:\Daten"
ThisWorkbook.Save
Altname = ThisWorkbook.FullName
If Right$(Pfad, 1) <> "\" Then Pfad = Pfad + "\"
Neuname = Pfad & Format(Now, "YYYY-MM-DD") & "-" & ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=Neuname
Workbooks.Open (Altname)
ThisWorkbook.Close
End Sub
Legen Sie Ihren Pfad in der Variablen Pfad fest. An dieser Position werden die Sicherheitskopien gespeichert. Das Makro arbeitet nach der folgenden Methode:
- Aktuelle Mappe speichern
- Neuen Dateinamen anhand des aktuellen Datums erzeugen
- Arbeitsmappe unter neuem Namen an neuem Pfad speichern
- Ursprüngliche Arbeitsmappe wieder öffnen
- Sicherheitskopie der Mappe schließen
Kopieren Sie das Makro in jede Arbeitsmappe, die Sie automatisch sichern möchten. Die Sicherheitskopien werden immer dann angelegt, wenn Sie die entsprechende Arbeitsmappe schließen.
Werden Sie mit unseren Tipps zum Excel-Profi!
- Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
- Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
- Jederzeit abbestellbar durch einen Link im Newsletter.
