Select Case wert
  Case Is < 1
    MsgBox ("Wert <1")
  Case 2, 3, 4
    MsgBox ("Werte von 2 oder 3 oder 4")
  Case 5 To 6
    MsgBox ("Werte von 5 bis 6")
  Case Is > 10
    MsgBox ("Werte >10")
  Case Else
    MsgBox ("Alle anderen Werte")
End Select

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)