Workbook_BeforeClose mit Exit Sub
04.11.2003 16:13:30
Matthias H.
ich möchte vor dem Schließen des Workbooks eine Msgbox einblenden, mit der ich zur Wahl stelle ob Daten beibehalten werden sollen. Dabei soll auch die Option 'Abbrechen' zur Verfügung stehen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Mldg, Stil, Titel
Mldg = "Sollen die Daten gespeichert werden?"
Stil = vbYesNoCancel
Titel = "Warnung"
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbCancel Then Exit Sub
If Antwort = vbNo Then Daten_löschen
If Antwort = vbYes Then ActiveWorkbook.Close savechanges:=True
End Sub
Bei Klick auf 'Abbrechen' wird die Datei trotz des Aufrufs 'Exit Sub' sofort geschlossen.
Im Archiv habe ich aber immer wieder diese Syntax gefunden. Kann mir jemand einen Tip geben warum es hier nicht klappt?
Gruß
Matthias