Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Probleme bei Select Case

Betrifft: Probleme bei Select Case von: Florian
Geschrieben am: 25.07.2014 20:10:47

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.

  

Betrifft: AW: Probleme bei Select Case von: Hajo_Zi
Geschrieben am: 25.07.2014 20:33:34

Sub EinfacheSelectCaseVerzweigung()
    Zahlenwert = InputBox("Zahl zwischen 0 und 20 eingeben!")
        Select Case Zahlenwert
            Case Is < 0: MsgBox ("Zahl zu klein!")
            Case Is > 20: MsgBox ("Zahl zu groß!")
            Case Else: MsgBox ("Zahl ist zwischen 0 und 20!")
        End Select
End Sub
Gruß Hajo


  

Betrifft: AW: Probleme bei Select Case von: Florian
Geschrieben am: 25.07.2014 20:45:29

Ok, super Hajo, manchmal ist es eben einfach die Syntax :) Vielen Dank.


 

Beiträge aus den Excel-Beispielen zum Thema "Probleme bei Select Case"