Vergleich von Zahlen schlägt fehl
22.08.2005 08:33:04
Zahlen
Ich habe eine Funktion, welche überprüfen sollte, ob der Wert zulässig ist, den ich zuvor in ein Textfeld geschrieben habe.
Ein Beispiel:
Formular1.Controls("txtMax" & Num).Value = 5
Cells(Num, 2).Value = 2
Cells(Num, 3).Value = 3
Mit diesen Werten sollte die Meldung nicht erscheinen.
Tut sie aber doch. Woran kann das liegen?
Was ist den an dieser If-Anweisung nicht korrekt
Function ueberpruefen(Num As Integer)
MsgBox Formular1.Controls("txtMax" & Num).Value
If Formular1.Controls("txtMax" & Num).Value < Cells(Num, 2).Value Or Formular1.Controls("txtMax" & Num).Value > Cells(Num, 3).Value Then
MsgBox "Bitte einen Wert zwischen" & vbNewLine & Cells(Num, 2) & " und " & Cells(Num, 3) & " eingeben."
Formular1.Controls("txtMax" & Num).SetFocus
End
End If
End Function
Anzeige