AW: Variable definieren für MsgBox
22.09.2018 15:53:29
fcs
Hallo Siegfried,
wenn man im VBA-Editor unter VbMsgBoxStyle sucht dann wird eine Liste mit möglichen Werten angezeigt.
Für die "normale" MsgBox reichen Integer-Werte. Will man alle Einstellmöglichkeiten abdecken muss man für den Box-Style die Variablen als Long deklarieren.
Für Response (im Objekthatalog unter VbMsgBoxResult) reicht Integer oder sogar Byte, da Werte zwischen 1 und 7 zurückgegeben werden.
Gruß
Franz
Sub Test()
'Deklarationen für MsgBox
Dim msgText As String, msgTitel As String, lStyle As Long, iResponse As Integer
msgText = "Was willst du jetzt machen?"
iStyle = vbYesNo + vbCritical + vbQuestion + vbDefaultButton2
msgTitel = "Makro Testen"
iResponse = MsgBox(msgText, iStyle, msgTitel)
Select Case iResponse
Case vbYes
MsgBox "Ja geklickt", vbOKOnly, msgTitel
Case vbNo
MsgBox "Nein geklickt", vbOKOnly, msgTitel
End Select
End Sub