Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sicherungskopie nach öffnen mit Datum und Zeit

Forumthread: Sicherungskopie nach öffnen mit Datum und Zeit

Sicherungskopie nach öffnen mit Datum und Zeit
04.09.2007 20:16:00
chris
Hallo !
ich habe nun lange gesucht, doch nichts passendes gefunden. Ich bin auf der Suche nach einem VBA Code der, nachdem man eine Datei geöffnet hat, diese mit Datum und Zeit gesichert wird. Dies sollte jeweils bei jedem öffnen mit Datum und Zeit gesichert werden, um so, falls Fehler bei der Eingabe passieren, auf diese Rückgegriffen werden kann. Es sollte auch nicht immer in die gleiche Datei gesichert werden, sondern immer eine neue auf C:\Eigenen Dateien\Desktop\Sicherungsordner\...xls angelegt werden.
Kann man sowas verwircklichen ?
Danke für Eure geschätzen Antworten.
Chris

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherungskopie nach öffnen mit Datum und Zeit
04.09.2007 20:24:00
Uduuh
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs "C:\Eigenen Dateien\Desktop\Sicherungsordner\" _
& Replace(ThisWorkbook.Name, ".xls", "") & Format(Now, "YYYYMMDD_hhmmss") & ".xls"
End Sub


Gruß aus’m Pott
Udo

Anzeige
AW: Sicherungskopie nach öffnen mit Datum und Zeit
05.09.2007 20:52:00
chris58
Danke, das läuft hervorragend.. hätte fast diesen tread nicht mehr gefunden
chris

AW: Sicherungskopie nach öffnen mit Datum und Zeit
04.09.2007 20:24:29
Jörg
Hi,
sie dir die SaveCopyAs-Methode in der Hilfe an.
mfg Jörg
;
Anzeige
Anzeige

Infobox / Tutorial

Sicherungskopie nach Öffnen mit Datum und Zeit erstellen


Schritt-für-Schritt-Anleitung

Um eine Sicherungskopie deiner Excel-Datei automatisch beim Öffnen zu erstellen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Anleitung:

  1. Öffne die Excel-Datei, für die du eine Sicherungskopie erstellen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Im Projektfenster links, suche nach „DieseArbeitsmappe“ und doppelklicke darauf.

  4. Füge den folgenden Code in das Codefenster ein:

    Private Sub Workbook_Open()
       ThisWorkbook.SaveCopyAs "C:\Eigenen Dateien\Desktop\Sicherungsordner\" _
       & Replace(ThisWorkbook.Name, ".xls", "") & Format(Now, "YYYYMMDD_hhmmss") & ".xls"
    End Sub
  5. Schließe den VBA-Editor und speichere die Datei als Makro-fähige Arbeitsmappe (z. B. .xlsm).

  6. Teste die Funktion, indem du die Datei schließt und erneut öffnest. Eine neue Sicherheitskopie sollte im angegebenen Ordner erscheinen.


Häufige Fehler und Lösungen

  • Fehler: "Speicherort nicht gefunden"

    • Überprüfe, ob der Ordner „Sicherungsordner“ auf deinem Desktop existiert. Wenn nicht, erstelle ihn manuell.
  • Fehler: Makros sind deaktiviert

    • Stelle sicher, dass du Makros in den Excel-Optionen aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die notwendigen Optionen.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch manuell eine Sicherungskopie erstellen:

  1. Öffne die Datei.
  2. Klicke auf Datei > Speichern unter.
  3. Wähle den Speicherort und füge das aktuelle Datum und die Uhrzeit im Dateinamen hinzu.

Diese Methode ist zwar weniger automatisiert, kann jedoch in bestimmten Fällen nützlich sein.


Praktische Beispiele

Angenommen, du hast eine Excel-Datei namens „Projektplanung.xls“. Nach dem Implementieren des VBA-Codes wird die Datei beim Öffnen automatisch als „Projektplanung_20231010_153045.xls“ gespeichert, wobei das Datum und die Uhrzeit des Öffnens hinzugefügt werden.


Tipps für Profis

  • Regelmäßige Überprüfung: Überprüfe deinen Sicherungsordner regelmäßig, um sicherzustellen, dass alte Dateien nicht unnötig Platz auf deinem Laufwerk belegen.
  • Verwendung von Cloud-Diensten: Überlege, deine Sicherungskopien in einem Cloud-Speicher zu speichern, um sie vor Datenverlust zu schützen.
  • Automatisierung: Du kannst die VBA-Funktion erweitern, um die Kopien in verschiedenen Ordnern oder mit unterschiedlichen Dateinamen zu speichern.

FAQ: Häufige Fragen

1. Wie kann ich die Sicherungskopie auf einem anderen Laufwerk speichern? Ändere einfach den Pfad in der VBA-Zeile:

ThisWorkbook.SaveCopyAs "D:\DeinOrdner\Sicherungsordner\" ...

2. Ist das Erstellen einer Sicherungskopie auch in Excel Online möglich? Leider unterstützt Excel Online keine VBA-Makros. Du kannst jedoch manuell Sicherungskopien erstellen.

3. Was passiert, wenn ich die Datei ohne Speichern schließe? Die Sicherungskopie wird nur erstellt, wenn die Datei geöffnet wird. Wenn du die Datei ohne Speichern schließt, bleibt die Sicherungskopie unverändert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige