Select Case mistake

[SMcNeill]

Is this basically what you're looking for?

Code: (Select All)

'Beispiel fuer Select Case und EveryCase - 7. Nov. 2022

Option _Explicit

Dim As Double kaufpreis

Print "Gebrauchtwagenkauf"
Print
Input "Wieviel moechten Sie ausgeben? ", kaufpreis

Print "Select Case:"
Select Case kaufpreis
    Case 4000 To 5000
        Print "Trabant, blau, frisiert - 31 KW."
    Case 5000 To 6000
        Print "Wartburg, dunkelgruen, 74.00 KM, 40 KW."
    Case 5500 To 7000
        Print "VW Polo, beige, 110.000 KM, 44 KW"
    Case Else
        Print "Haben wir leider nicht im Angebot!"
End Select

Print
Print "Select EveryCase:"
Select EveryCase kaufpreis
    Case 4000 To 5000
        Print "Trabant, blau, frisiert - 31 KW."
    Case 5000 To 6000
        Print "Wartburg, dunkelgruen, 74.00 KM, 40 KW."
    Case 5500 To 7000
        Print "VW Polo, beige, 110.000 KM, 44 KW"
    Case Else
        Print "Haben wir leider nicht im Angebot!"
End Select

End