Kategorie:
(Tipp 9)
Wie kann ich abfragen, welche Schaltfläche in einer MsgBox gewählt wurde?
Bemerkungen:
Soll die MsgBox einen Wert zurückgeben, schreibt man die Argumente hinter MsgBox in Klammern, sonst nicht.
Die If-Abfrage ist nur zur besseren Ã?bersichtlichkeit untereinander geschrieben, sie kann auch einfacher geschrieben werden:
If ... Then ... Else
Sub Meldung() Dim intFrage As Integer intFrage = MsgBox("Bitte eine Schaltfläche wählen.", vbYesNo + vbExclamation, "Schaltfläche") If intFrage = vbYes Then MsgBox "Sie haben 'Ja' gewählt.", vbOKOnly + vbInformation, "Ja" Else MsgBox "Sie haben 'Nein' gewählt.", vbOKOnly + vbInformation, "Nein" End If End Sub