vbyesno in msgbox
13.02.2003 11:59:51
ae
mit nachstehendem Code möchte ich abfragen ob die anwendung wirklich beendet werden soll:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden")
MsgBox (msg)
If msg = vbNo Then
Exit Sub
Else
ActiveWorkbook.Save
Application.Quit
End If
End Sub
aber egal, ob ich auf ja oder nein klicke --- die anwendung wird beendet !!
Bin ich denn blind oder blöde oder beides ?
wo liegt denn da der fehler ?
danke für eure hilfe
gruß
ae
Anzeige