123 3 3 3
321 4 3 5
456 1 4 6
654 5 5 5
789 9 7 6
987 7 8 9
es sollen die Werte markiert werden die ueber die 3 Perioden gleich bleiben
z. B. hier bei Mtrnr 123 und 654
Sub Markieren()
Dim i As Integer
i = 1
Do While Range("A" & i) <> ""
If Range("B" & i).Value = Range("C" & i).Value And _
Range("B" & i).Value = Range("D" & i).Value Then
Range("A" & i).Interior.ColorIndex = 4
End If
i = i + 1
Loop
End Sub