Probleme bei Select Case
25.07.2014 20:10:47
Florian
Hallo,
ich stehe derzeit vor einem Verständnisproblem und komme nicht weiter. Habe vor Kurzem angefangen, meine verstaubten VBA-Kenntnisse wieder aufzupolieren und bin gerade im Übungsprozess. Dabei bin ich auf ein Problem gestoßen, das ich einfach nicht lösen kann. Ich wollte eine Select Case-Verzweigung einbauen, die in Abhängigkeit vom Eingabewert ein bestimmtes Antwortfenster ausgibt. Leider funktioniert der untere Randbereich einfach nicht. Wenn ich im Eingabefenster eine 0 eingebe, behauptet Excel, der Eingabewert sei zu klein, obwohl in der entsprechenden Bedingung explizit "Select Case Zahl < 0" steht.
Der gesamte Code der Sub sieht so aus:
Option Explicit
Dim Zahlenwert As Long
Sub EinfacheSelectCaseVerzweigung()
Zahlenwert = InputBox("Zahl zwischen 0 und 20 eingeben!")
Select Case Zahlenwert
Case Zahlenwert < 0: MsgBox ("Zahl zu klein!")
Case Zahlenwert > 20: MsgBox ("Zahl zu groß!")
Case Else: MsgBox ("Zahl ist zwischen 0 und 20!")
End Select
End Sub
Weiß jemand einen Rat? Ich komme nicht drauf. Vielen Dank.