Code Snippet "VBA allgemein"

Select Case mit Is und To für Mehrfachverzweigung

Sub procUeb03_SelectSicher()
  Dim strEingabe As String
  'Achtung: Richtiger Typ ist hier wichtig!
  Dim intEingabe As Integer
  
  strEingabe = InputBox("Bitte geben Sie eine Zahl zwischen 1 und 100 ein")
  
  If IsNumeric(strEingabe) Then
    intEingabe = strEingabe
  Else
    MsgBox ("Keine Zahl eingegeben")
  End If
  
  Select Case intEingabe
    Case Is < 0
      MsgBox ("Der Wert ist zu klein!")
    Case 1 To 100
      MsgBox ("Sie haben " & intEingabe & " gewählt.")
    Case Is > 100
      MsgBox ("Der Wert ist zu gross!")
  End Select
End Sub