HERBERS Excel-Forum - die Beispiele

Thema: Arbeitsmappe-Schließen-Abfrage abfangen

Home

Gruppe

Allgemein

Problem

Wie kann ich die Werte der Excelabfrage beim Schließen der Arbeitsmappe über VBA abfangen, um je nach Entscheidung das Makro zu verzweigen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub AbfrageBeiSchliessen()
   Dim sMsg As String
   sMsg = "Soll die Arbeitsmappe geschlossen und gespeichert werden?"
   Select Case MsgBox(sMsg, vbInformation + vbYesNoCancel)
      Case vbYes: ActiveWorkbook.Close savechanges:=True
      Case vbNo: Call WeiterBeiNein
      Case vbCancel: Call WeiterBeiAbbruch
   End Select
End Sub

Private Sub WeiterBeiNein()
   MsgBox "Sie haben die Frage nach dem " & Chr(13) _
      & "speichern verneint!"
End Sub

Private Sub WeiterBeiAbbruch()
   MsgBox "Sie haben den Speichern-Dialog" & Chr(13) _
      & "abgebrochen!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Meldung

Was bedeutet diese Meldung und warum gibt es sie Start Userform Fehlermeldung
'Run' & 'IWshShell3' Fehlermeldung VBA VBA - Suchfunktion - Fehlermeldung
Drucker nicht vorhanden, dann Meldung Makro 4.0 Meldung beim Dateiaufruf ausschalten
Meldungen beim aufmachen Eingabemeldung auch für mehrere Zellen?
Warnmeldung bei "Summe größer als x" Dateien öffnen, Update-Meldung ausschalten
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Fehlermeldung bei Validation Fehlermeldung
Rückmeldung aus Outlook Fehlermeldung erzeugen
Nach Fehlermeldung nächste Anweisung Fehlermeldung beim Öffnen von Excel: VBA-Projekt
Fehlermeldung bei Inputbox-Abbruch Fehlermeldung in Schleife mit Controls
Schwere Excel-Fehlermeldung erzeugen Störmeldungen in Excel aufzeichnen
Fehlermeldung UCase mit Fehlermeldung
Bei Löschung Fehlermeldung Typen unverträglich Pivot Tabelle Fehlermeldung
Bei Fehlermeldung Events wieder einschalten Fehlermeldung seit Umstellung auf 2007
Eigene Meldung wenn keine Daten im Zischenspeicher Pivot - Fehlermeldung not enough memory
Fehlermeldung bei Format(Wert, "dddd") Fehlermeldung 2147024882 (8007000E)
Zellbereich vergleichen & Zellbezug od. Meldung au Fehlermeldung bei Übergabe Listeninhalt an Userfor
Meldung im Freigabemodus Fehlermeldung
Hinweismeldung vor Ablaufdatum Eingabemeldung Gültigkeit
Sicherheitsmeldung beim Zugriff auf Access allgemein
Szenarios Arrey Fehlermeldung Wenn-Abfrage und MsgBox-Meldung
"Wartemeldung" anzeigen Meldung unterdrücken
Fehlermeldung Fehlermeldung wenn Blattschutz aktiv
Outlook Meldung in Excel Bei Fehlermeldung #NV den Wert 0,00 ausgeben
Einträge (ohne enthaltene Fehlermeldungen) zählen Verknüpfungsmeldung unterdrücken