Legt die Schreibrichtung des Textes von links nach rechts für arabisches und jüdisches System fest
Die erste Gruppe von Werten (0 - 5) beschreibt die Anzahl und den Typ der im Dialogfeld angezeigten Schaltflächen. Die zweite Gruppe (16, 32, 48, 64) beschreibt die Symbolart. Die dritte Gruppe (0, 256, 512) legt die Standardschaltfläche fest. Die vierte Gruppe (0, 4096) legt fest, in welcher Form das Dialogfeld gebunden ist. Verwenden Sie beim Addieren der Zahlen zu einem Gesamtwert für das Argument buttons nur eine Zahl aus jeder Gruppe.
Anmerkung Diese Konstanten sind durch Visual Basic für Applikationen festgelegt. Daher können die Namen an einer beliebigen Stelle im Code anstelle der tatsächlichen Werte verwendet werden.
Sub MeldungB()
Dim iClick As Integer
iClick = MsgBox( _
prompt:="OK oder abbrechen?", _
Buttons:=vbOKCancel)
If iClick = vbOK Then
MsgBox "OK"
Else
MsgBox "Abbrechen"
End If
End Sub
In der Prozedur wird in Abhängigkeit der angeklickten Schaltfläche verzweigt:
Sub MeldungC()
Dim iClick As Integer
iClick = 4
Do While iClick = 4
iClick = MsgBox( _
prompt:="Abbrechen, wiederholen oder ignorieren?", _
Buttons:=vbAbortRetryIgnore)
If iClick = vbRetry Then
MsgBox "Ich wiederhole!"
ElseIf iClick = vbIgnore Then
MsgBox "Ich ignoriere!"
End If
Loop
End Sub
In der Prozedur wird in Abhängigkeit der angeklickten Schaltfläche verzweigt; bei Klick auf die Wiederholen-Schaltfläche
wird der vbAbortRetryIgnore-Dialog erneut aufgerufen:
Sub MeldungD()
Dim iClick As Integer
iClick = MsgBox( _
prompt:="Ja, nein oder abbrechen?", _
Buttons:=vbYesNoCancel)
If iClick = vbYes Then
MsgBox "Ja"
ElseIf iClick = vbNo Then
MsgBox "Nein"
ElseIf iClick = vbCancel Then
MsgBox "Abbrechen"
End If
End Sub
In der Prozedur werden in Abhängigkeit der geklickten Schaltfläche Werte zurückgeliefert, die weiterverarbeitet werden können:
Sub MeldungE()
Dim iClick As Integer
iClick = MsgBox( _
prompt:="Ja oder nein?", _
Buttons:=vbYesNo)
If iClick = vbYes Then
MsgBox "Ja"
ElseIf iClick = vbNo Then
MsgBox "Nein"
End If
End Sub
In der Prozedur werden in Abhängigkeit der geklickten Schaltfläche Werte zurückgeliefert, die weiterverarbeitet werden können:
Sub MeldungF()
Dim iClick As Integer
iClick = 4
Do While iClick = 4
iClick = MsgBox( _
prompt:="Abbrechen oder wiederholen", _
Buttons:=vbRetryCancel)
If iClick = vbRetry Then
MsgBox "Ich wiederhole!"
ElseIf iClick = vbCancel Then
MsgBox "Abbrechen"
End If
Loop
End Sub
In der Prozedur wird in Abhängigkeit der angeklickten Schaltfläche verzweigt; bei Klick auf die Wiederholen-Schaltfläche
wird der VbRetryCancel-Dialog erneut aufgerufen:
Sub MeldungH()
Dim iCounter As Integer, iMsg As Integer
For iCounter = 0 To 512 Step 256
iMsg = iMsg + 1
MsgBox _
prompt:=iMsg & ". Schaltfläche ist Standardschaltfläche", _
Buttons:=iCounter + vbAbortRetryIgnore
Next iCounter
End Sub
Sub MeldungI()
MsgBox "Hallo aus Excel", vbApplicationModal
End Sub
Die MessageBox ist an Microsoft Excel gebunden. Sie können in anderen Anwendungen weiterarbeiten, ohne die nur in Excel sichtbare
MessageBox zu schließen. Es handelt sich hier um die Voreinstellung.
Sub MeldungJ()
MsgBox "Hallo aus Excel", vbSystemModal
End Sub
Die MessageBox ist nicht an Microsoft Excel gebunden. Sie können in anderen Anwendungen nicht weiterarbeiten,
ohne die auch in anderen Anwendungen sichtbare MessageBox zu schließen.
Sub MeldungK()
MsgBox "Hallo aus Excel", VbMsgBoxSetForeground
End Sub
Die MessageBox wird im Vordergrund platziert. Dies gilt weder für andere Anwendungen noch für eine zweite Excel-Instanz.
Ein unterschiedliches Verhalten zur Normaleinstellung konnte nicht festgestellt werden.
Sub MeldungL()
Dim sTxt As String, sPrompt As String, sFile As String
sFile = ThisWorkbook.Path & "\Kontext.chm"
If Dir(sFile) = "" Then
Beep
MsgBox "Hilfedatei existiert nicht!"
Exit Sub
End If
MsgBox _
prompt:="Aufruf einer Hilfedatei", _
Buttons:=vbMsgBoxHelpButton, _
HelpFile:=sFile, Context:="1001"
End Sub
Den MessageBoxes kann eine Hilfeschaltfläche mit damit verbundenen Hilfethemen zugeordnet werden: