<< Click to Display Table of Contents >> Select Case (Anweisung)

Select Case Ausdruck

 [Case Wert1

         [Anweisungen]]

 [Case Wert2

         [Anweisungen]]

 .

 .

 .

 [Case Else

         [Anweisungen]]

End Select

Führt abhängig vom Wert des übergebenen Ausdrucks einen von mehreren Anweisungsblöcken aus (siehe auch Abschnitt Kontrollstrukturen).

Eine Select Case-Struktur muss mit End Select abgeschlossen werden.

Siehe auch: If Then Else, Abschnitt Kontrollstrukturen

Beispiel:

Sub Main

 Zahl = InputBox("Geben Sie eine ganze Zahl zwischen 1 und 3 ein:")

 Select Case Val(Zahl)

         Case 1

                 MsgBox "Sie haben eine Eins eingegeben."

         Case 2

                 MsgBox "Sie haben eine Zwei eingegeben."

         Case 3

                 MsgBox "Sie haben eine Drei eingegeben."

         Case Else

                 MsgBox "Es sind nur ganze Zahlen zwischen 1 und 3 erlaubt!"

 End Select

End Sub