Hallo,

habe ein Problem und weiß nicht mehr weiter, alles seltsam :-)

Ich habe 3 Textboxen, Textbox 1, Textbox2, Textbox3.

In Textbox 2 wird z.B. der Min. Wert 6,5    und in Textbox3   der Max Wert 8,5 eingetragen.

Wenn ich nun in meine Textbox1 einen Wert zwischen 6,5 und 8,5 eingebe soll die Textbox 1 Schrift schwarz bleiben,

komme ich unter Min. oder über Max. dann soll meine Textbox1 schrift rot werden.

Bei den oben genannten Min./Max. (6,5-8,5)  Werten klappt alles einwandfrei, sowie bei ca. 20 weiteren Min/Max Werten.

Jetzt kommt es:

Gebe ich als Min.  8,0  und Max:  10,0 ein , spielt der Code verrückt, Eingabe in Textbox1 werden direkt rot geschrieben obwohl sie im Range liegen, usw.

Werte die Problem machen:  Min.          Max.

                                                    8,0             10,0

                                                  20,0             12,0

                                                    9,5             12,5

                                                  30,0             33,0

                                                     7,5             10,5

                                                     9,0             12,0

Rest noch nicht bekannt.

Ich hoffe Ihr könnt mir helfen, ich hab da ech ein Hänger, da es bei vielen Werten geht, nur bei manchen nicht.

Vielen Dank schon mal für die Mühe

Gruß Thorsten

Private Sub TextBox1_Change()

If TextBox1 >= TextBox2 Then
TextBox1.ForeColor = &H80000012
End If

If TextBox1 < TextBox2 Then
TextBox1.ForeColor = &HFF& 'rot
End If

If TextBox1 >= TextBox3 Then
TextBox1.ForeColor = &H80000012
End If

If TextBox1 > TextBox3 Then
TextBox1.ForeColor = &HFF& 'rot
End If

End Sub