ich bin gerade dabei ein Excel VBA zu schreiben. Es soll zwei Zeilen untereinander vergleichen, wenn die Zeilen gleich sind, soll in die nächste Zeile übergegangen werden. Falls zwei Zeilen unterschiedlich sind, soll eine Markierung stattfinden.
Beispiel:
A1: 1
A2: 1
A3: 1
A4: 2 ( Hier Makierung, weil A4 und A3 ungleich sind)
A5: 2
A6: 2
A7: 3 (Hier Markeriung, weil A6 und A7 ungleich sind.)
A8: 3
Unten ist ein Test Script geschrieben, allerdings bezieht es sich immer auf A1...
Ich würde mich über jede Antwort freuen.
Mit freundlichen Grüßen
Degree
Sub Test()
Dim Zelle As Range
For Each Zelle In Range("A1:A20")
If Zelle.Value = Range("A1").Value Then
Else: Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub