Textfeld Rot einfärben wenn Zahl > 1

[DaveWilli]

Hallo Zusammen.
Ich habe folgendes Problem:
Ich möchte aus einer Tabelle Zahlen in einem Textfeld (txtNitrat) in einem Endlosformular überprüfen. Wenn diese > 1 sind, dann soll sich das textfeld rot einfärben, aber nur jene Textfelder, bei welcher die Zahl > 1 sind. Die Zahlen sind Double, also Dezimalzahlen. Und ich glaube dort liegt wahrscheinlich das Problem.

Hier mein VBA-code:

Code [Auswählen] Erweitern

Private Sub Form_Current()
    Dim txtNitrat As Double
    Dim lngRed As Long

    lngRed = RGB(255, 0, 0)

    If txtNitrat > 0.1 Then
        Me!txtNitrat.BackColor = lngRed
    End If
End Sub
Wahrscheinlich ist die Antwort ganz simple, aber ich komme nicht drauf.
Vielen Dank.

[MzKlMu]

Hallo,
das geht so nicht, mit dem Code würden alle Datensätze der Spalte gefärbt nicht nur die gewünchten. Du musst die bedingte Formatierung verwenden. Da braucht es auch kein VBA, für die bedingte Formatierung gibt es einen Menüpunkt.

Im Text schreibst Du >1 und im Code steht >0.1, was darf es denn sein ?

[DaveWilli]

Hat geklappt. Vielen Dank. Ging einfacher als gedacht