Festellen, ob eine Arbeitsmappe gespeichert werden muss

11. April 2010
Martin Althaus Von Martin Althaus, Excel, Office ...

So erkennen Sie den Speicherstatus Ihrer Dateien mit VBA

Wenn eine Arbeitsmappe verändert wird, sollte sie auch gespeichert werden, um die Änderungen auf den Datenträger zu übernehmen. Daher fragt Excel beim Verlassen des Programms für jede veränderte, aber noch nicht gespeicherte Datei nach, ob sie gespeichert werden soll oder nicht.

Sie können diesen Zustand auch per VBA abfragen. Das ist immer dann wichtig, wenn Sie VBA-Anwendungen verwenden, die eigene Rückfragen anstelle der Standard-Excel-Rückfragen verwenden möchten. Um den Speicherstatus einer Datei abzufragen, verwenden Sie die Eigenschaft Saved. Das folgende Makro zeigt, wie Sie die Eigenschaft in der Praxis verwenden:

Sub SpeichernFallsNotwendig()
Dim Antwort As Integer
If ActiveWorkbook.Saved Then
 Antwort = MsgBox("Der aktuelle Zustand der " & _
 "Arbeitsmappe ist gespeichert.", vbOKOnly, _
 "Speichern nicht notwendig")
Else
 Antwort = MsgBox("Der aktuelle Zustand der " & _
 "Arbeitsmappe ist nicht gespeichert. " & vbLf & _
 "Möchten Sie jetzt speichern?", vbYesNo, _
 "Speichern erforderlich")
 If Antwort = vbYes Then ActiveWorkbook.Save
End If
End Sub

Wenn Sie das Makro starten, prüft Excel im ersten Schritt, ob die aktive Mappe bereits gespeichert ist oder nicht. Wenn das nicht der Fall ist, wird ein passendes Fenster eingeblendet:

Anschließend wird die Arbeitsmappe unter dem aktuellen Namen abgespeichert.

Falls beim Aufruf des Makros festgestellt wird, dass die Arbeitsmappe im aktuellen Zustand bereits gespeichert ist, klärt ein Hinweisfenster über diese Tatsache auf:

Tipp: Falls Sie wissen möchten, wie Sie Makros in Excel eingeben und starten, finden Sie hier eine Kurzbeschreibung: www.exceldaily.de/excel-makros-vba/artikel/d/so-geben-sie-makros-in-excel-ein.html

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"