Select Case mit Vergleichen

Herdt EX2003P K8.4/S.93

Mit Select Case lassen sich auch kompliziertere Verzweigungen erstellen, wenn man für Vergleiche Is, für Bereiche To einsetzt und mehrere Werte mit Komma trennt.

Select Case intEingabe
  Case Is < 1
    MsgBox ("Eingabe zu klein!")
  Case 1 To 5
    MsgBox ("Arbeitstag")
  Case 6, 7
    MsgBox ("Wochenende")
  Case Else
    MsgBox ("Eingabe zu gross!")
End Select

Übung 3