TextBox farbe ändern
01.01.2015 20:08:17
paul
Hallo,
ich möchte nach der Eingabe in der TextBox die Farbe bedingt formatieren
leider funktioniert es so nicht:
es wird hier immer die vorherige Eingabe für die Formatierung verwendet
Private Sub maß1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
maß1.BackColor = RGB(256, 256, 256)
If KeyCode = vbKeyReturn Then GoTo m
Worksheets("werte").Activate
GoTo ende
m:
Dim min1 As Range
Dim max1 As Range
Dim eingabe As Range
Set eingabe = Worksheets("werte").Range("D30")
Set min1 = Worksheets("werte").Range("A33")
Set max1 = Worksheets("werte").Range("A34")
If eingabe > max1 Then GoTo rot
If eingabe < min1 Then GoTo rot
GoTo grün
rot:
maß1.BackColor = RGB(256, 0, 0)
GoTo ende
grün:
maß1.BackColor = RGB(0, 256, 0)
ende:
End Sub