Automatische Sicherheitskopie einer Exel-Arbeitsmappe

20. Februar 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

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:

     

  1. Aktuelle Mappe speichern
  2. Neuen Dateinamen anhand des aktuellen Datums erzeugen
  3. Arbeitsmappe unter neuem Namen an neuem Pfad speichern
  4. Ursprüngliche Arbeitsmappe wieder öffnen
  5. Sicherheitskopie der Mappe schließen
  6.  

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!

Jetzt gratis per E-Mail

DDV Ehrencodex E-Mail-Marketing
  • 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.

Unsere Datenschutzgarantie:

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.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • 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.

Unsere Datenschutzgarantie:

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.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"