Hallo, guten Morgen!
Ich brauche noch mal Hilfe:
Dieser Code soll Zeilenweise Messwerte überprüfen, bei Min-Max Unterschreitung-Überschreitung die Entsprechneden Zellen ROT markieren.
Die Min.werte stehen in der Spalte 45, die Maxwerte in Spalte 25.
Diesr Code ist falsch, was muss ich ändern?
For Each rng In ActiveSheet.Range("L19:W100")
If rng.Value = rng(Row, 25).Value Then
rng(cRow, s).Interior.ColorIndex = 3 ' Rot machen
rng(cRow, s).Font.ColorIndex = 2
End If
Next
Schönen dank
Egon