Hallo und guten Tag,
ich möchte mit meinem Code die Werte zweier Spalten vergleichen.
Wenn die Werte der Spalte "DR" verschieden der Spalte zwei weiter links sind sollen diese Rot eingefärbt werden und ein Zähler soll hoch laufen.
Nur färbt und zählt der Code haufenweise Zellen die eigentlich gleich sind.
Hier mein Code:
Dim Zelle As Range
Dim Veränderungen_Regel_a As Integer
Veränderungen_Regel_a = 0
For Each Zelle In ActiveSheet.Range("DR9:DR1809")
If Zelle.Offset(0, 2).Value Zelle.Value Then
Veränderungen_Regel_a = Veränderungen_Regel_a + 1
Zelle.Interior.ColorIndex = 3 'rot
End If
Next
MsgBox Veränderungen_Regel_a