Microsoft Office Tutorials and References
In Depth Information
Der PC geht im Beispiel nicht so richtig auf Sie ein. Würde er sich wirklich für Sie inte-
ressieren, hätte er im negativen Fall auch „Warum nicht?“ fragen und verschiedene
Antwortmöglichkeiten anbieten können. Damit entstehen verschachtelte Verzweigun-
gen – so wie ja auch WENN-Funktionen verschachtelt – bzw. Mehrfachverzweigungen
durch die Select Case -Anweisung – abgebildet werden können.
Mit einer InputBox anstatt einer MsgBox können Sie vom Anwender auch eine Aus-
wahl aus mehr als zwei Alternativen treffen (Abbildung 13.15) und ihn mit dem
Makro Mehrfachauswahl unterschiedlich darauf reagieren lassen.
Abbildung 13.15: Mehrfachverzweigung für tiefgründigere Gespräche
Sub Mehrfachverzweigung()
Dim Auswahl As Long
Auswahl = InputBox("Warum nicht?" & vbCrLf & _
"(1) Mein Computer ist abgestürzt" & vbCrLf & _
"(2) FC Bayern ist Deutscher Meister geworden" & vbCrLf & _
"(3) Geht Dich nichts an" & vbCrLf & _
"(4) Ein anderer Grund")
Select Case Auswahl
Case 1
MsgBox "Dann fahre ihn wieder hoch!"
Case 2
MsgBox "Nächstes Jahr wird's hoffentlich die Eintracht."
Case 3
MsgBox "Ich wollte Dir nicht zu nahe treten."
Case Else
'…
End Select
End Sub
Search JabSto ::




Custom Search