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

Forumthread: Beim Schliessen automatisch speichern

Beim Schliessen automatisch speichern
23.05.2006 17:15:32
AVD
Folgendes Problem;
ich möchte eine Excel-Datei mit einem Makro automatisch speichern.
Der Name der Datei soll dann so heißen wie der Zellenwert der Tabelle1 Zelle A1
und die Datei soll in einem bestimmten Pfad C:\Dokumentation gespeichrt werden.
Vielen Dank
Alex
Garantierte Rückmeldung
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Beim Schliessen automatisch speichern
HansHei
Hallo Alex,
Sub speichern()
Dim pfad As String
Dim name As String
pfad = "c:\Dokumentation\"
name = Sheets("Tabelle1").Range("A1").Value
ActiveWorkbook.SaveAs Filename:=pfad & name
End Sub
Gruß
Hans
Anzeige
AW: Nachtrag
HansHei
Hi,
Hab übersehen:
Automatisch beim Schließen.
Dann nutze:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Gruß
Hans
AW: Nachtrag
24.05.2006 00:10:35
AVD
Hallo Hans,
vielen Dank für Deine Unterstützung.
Hat Super-Klasse geklappt.
So macht das Forum Spaß.
Alex
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Automatisches Speichern von Excel-Dateien beim Schließen


Schritt-für-Schritt-Anleitung

Um deine Excel-Datei automatisch zu speichern, wenn du sie schließt, kannst du ein einfaches Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Projektfenster das Workbook aus, in dem du das Makro erstellen möchtest.

  3. Klicke mit der rechten Maustaste auf das Workbook und wähle Einfügen > Modul.

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

    Sub speichern()
        Dim pfad As String
        Dim name As String
        pfad = "C:\Dokumentation\"
        name = Sheets("Tabelle1").Range("A1").Value
        ActiveWorkbook.SaveAs Filename:=pfad & name
    End Sub
    
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        speichern
    End Sub
  5. Schließe den VBA-Editor und speichere deine Excel-Datei als Makro-fähige Datei (*.xlsm).

  6. Jetzt wird deine Datei automatisch gespeichert, wenn du sie schließt, und der Dateiname basiert auf dem Wert in Zelle A1 von Tabelle1.


Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.
    Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen und aktiviere die Option, die Makros zulässt.

  • Fehler: Datei wird nicht im richtigen Pfad gespeichert.
    Lösung: Überprüfe, ob der angegebene Pfad (C:\Dokumentation\) existiert. Wenn nicht, erstelle den Ordner oder passe den Pfad im Code an.


Alternative Methoden

Falls du nicht mit VBA arbeiten möchtest, gibt es auch die Möglichkeit, Excel so einzustellen, dass es automatisch speichert. Dies geschieht über die Funktion „AutoWiederherstellen“:

  1. Gehe zu Datei > Optionen > Speichern.
  2. Aktiviere die Option „AutoWiederherstellen-Informationen speichern alle X Minuten“.
  3. Setze den gewünschten Intervall, um regelmäßig deine Arbeit zu speichern.

Diese Methode speichert jedoch nicht beim Schließen, sondern in festgelegten Intervallen.


Praktische Beispiele

Angenommen, du hast eine Excel-Datei, in der du regelmäßig Daten eingibst. Mit dem oben beschriebenen VBA-Code wird die Datei automatisch gespeichert, wenn du sie schließt, und der Name wird nach dem Wert in Zelle A1 benannt.

Wenn du beispielsweise in Zelle A1 „Bericht2023“ eingibst, wird die Datei als „Bericht2023.xlsx“ im angegebenen Ordner gespeichert.


Tipps für Profis

  • Um sicherzustellen, dass du immer die aktuellste Version deiner Datei hast, kannst du das Intervall für die AutoWiederherstellung verkürzen.
  • Überlege dir, ein zusätzliches Makro zu erstellen, das beim Speichern eine Bestätigungsnachricht anzeigt, um sicherzustellen, dass alles korrekt gespeichert wurde.
  • Teste deine Makros in einer Kopie der Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um die Datei in einem anderen Format zu speichern?
Du kannst die SaveAs-Methode anpassen, indem du das Format hinzufügst, z.B. ActiveWorkbook.SaveAs Filename:=pfad & name, FileFormat:=xlWorkbookDefault.

2. Was passiert, wenn der Wert in Zelle A1 leer ist?
Wenn A1 leer ist, wird die Datei unter einem leeren Namen gespeichert. Es ist ratsam, eine Überprüfung hinzuzufügen, um dies zu vermeiden.

3. Kann ich das automatische Speichern auch für andere Excel-Versionen nutzen?
Ja, der VBA-Code ist in den meisten modernen Excel-Versionen (wie Excel 2016, 2019 und Microsoft 365) anwendbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige