Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

vbyesno in msgbox

vbyesno in msgbox
13.02.2003 11:59:52
ae
hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: vbyesno in msgbox
13.02.2003 12:05:06
Steffen D

Hallo,

du musst Cancel auf true setzen!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
msg = MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden")
If msg = vbNo Then
Cancel=True
Exit Sub
Else
ActiveWorkbook.Save
'Application.Quit brauchst du nicht da die anwendung sowieso beendet wird
End If
End Sub

Gruß Steffen D

danke ! Das wars ! oT
13.02.2003 12:07:50
ae



Re: vbyesno in msgbox
13.02.2003 12:12:23
felix

Hallo Du Geheimnisvoller ae,
so gehts

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Wollen Sie die Anwendung wirklich beenden ?", vbYesNo, "Anwendung beenden") _
= vbNo Then
Cancel = True
Exit Sub
Else
ActiveWorkbook.Save
Application.Quit
End If
End Sub

Gruß
Felix

Anzeige
danke o t
13.02.2003 14:22:22
ae



303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige