Makro vor dem Speichern ausführen

11. August 2008
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie an das Speichern ein Ereignis koppeln

Sie möchten dafür sorgen, dass vor dem Speichern eines Dokuments ein Makro ausgeführt wird, beispielsweise um automatisch eine Überprüfung vorzunehmen oder eine Berechnung durchzuführen? Dann setzen Sie das Ereignis BeforeSave ein.

Eine über BeforeSave definierte Prozedur springt Excel an, bevor eine Datei gespeichert wird. Der folgende Programmcode zeigt ein Beispiel:

Private Sub Workbook_BeforeSave(ByVal SpeichernAngezeigt As Boolean, Abrechen As Boolean)
Dim a As Variant
a = MsgBox("Es wird gespeichert!!", vbOKOnly, "Speicherhinweis")
End Sub

Wenn Sie diesen Programmcode Ihre Arbeitsmappe einbinden, wird vor dem Speichern einer Datei ein Fenster angezeigt, mit dem Sie auf das Speichern hingewiesen werden:

Ersetzen Sie den MsgBox-Befehl durch die Kommandos, die Sie beim Speichern einer Datei ausführen möchten.

Achten Sie darauf, den Programmcode nicht in ein Standardmodul, sondern in das Modul zur Arbeitsmappe einzubinden. Dazu klicken Sie im VBA-Editor die gewünschte Datei an und führen einen Doppelklick auf Diese Arbeitsmappe aus. Integrieren Sie den Programmcode dann in das dargestellte Modulblatt.

Über die Eigenschaft Abbrechen im Programmcode können Sie steuern, ob die Datei tatsächlich gespeichert werden soll. Indem Sie Abbrechen auf den Wert false setzen, sorgen Sie dafür, dass Excel das Speichern nicht ausführt.

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"