Herbers Excel-Forum - das Archiv
Ereignis Workbook_BeforeClose
Betrifft: Ereignis Workbook_BeforeClose
von: Marc
Geschrieben am: 31.10.2003 10:04:10
Hallo Profis,
ich glaube ich habe ne Blockade, denn so schwer kann das doch nicht sein.
Ich möchte gerne, dass vor dem Schliessen einer Mappe abgefragt wird, ob an alles gedacht wurde.
Dazu dieser Code im Modul Diese Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim check As Boolean
check = MsgBox("Haben Sie an alles gedacht ?", vbYesNo)
If check = vbNo Then Cancel = True
If check = vbYes Then Cancel = False
End Sub
D.h. wenn Nein angeklickt wird, soll die Mappe nicht geschlossen werden.
Was mache ich falsch ?
Grüsse,
Marc
Betrifft: AW: Ereignis Workbook_BeforeClose
von: Dirk
Geschrieben am: 31.10.2003 10:08:11
Hallo.
Du hast "check" als boolisch deklariert. Keine Deiner If-Bedingungen trifft daher zu.
Cheers
Betrifft: Danke !!
von: Marc
Geschrieben am: 31.10.2003 10:14:27
Danke Dirk,
hab ich's mir doch gedacht, dass ich mega auf'm Schlauch stehe.
Werde mir wohl noch nen Kaffee genehmigen müssen...
Grüsse,
Marc
Betrifft: *g* No prob o.T.
von: Dirk
Geschrieben am: 31.10.2003 10:15:41