PDA

Vollständige Version anzeigen : Zahlenwert in einer Textbox überprüfen


HannesHansen
27.07.2012, 09:48
Hallo zusammen!

Ich habe in einer UserForm eine Textbox in der keine Zahlen kleiner 2 eingetragen werden dürfen.
Um dies zu überprüfen habe ich folgenden Code eingefügt:

If TextBox4.Text < "2" Then
MsgBox ("Wert muss mindestens 2 sein!")
TextBox4.SetFocus
Exit Sub
End If

Für Werte kleiner 2 funktioniert das auch soweit. Allerdings wird das Programm auch verlassen sobald der Wert 10 oder mehr beträgt. Werte von 2 bis 9 werden akzeptiert.

Irgendwer eine Idee woran das liegen könnte?

Gruß,
Hannes

Hajo_Zi
27.07.2012, 09:51
Hallo Hanne4s,

ich hätte Zahlen verglichen.
if TextBox4<>""
If Cdbl(TextBox4) < 2 Then
ich gehe davon auzs das nur Zahlen eingegeben werden können.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

HannesHansen
27.07.2012, 12:37
Hi Hajo,
tausend Dank das funktioniert!
Gruß,
Hannes