Mit nachstehendem Code (den ich von hier habe, besten dank!) werden Zeilen miteinander verglichen und bei Änderungen (= ungleicher Wert) farbig markiert.
Dim lzVergleich As Long
lzVergleich = Cells(Rows.Count, "A").End(xlUp).Row
Dim spVergleich As Long
spVergleich = Cells(5, Columns.Count).End(xlToLeft).Column
Dim r, c As Integer 'r = Zeile, c = Spalte
For r = 6 To lzVergleich
With Sheets("Tabelle1")
If .Cells(r, 5).Value = .Cells(r + 1, 5).Value Then
For c = 4 To spVergleich
If .Cells(r, c).Value .Cells(r + 1, c).Value Then
.Cells(r + 1, c).Interior.Color = 255
End If
Next
End If
End With
Next
Mein Problem ist nun, dass die Datenbank recht gross wurde und es mit diesem Code immer die kompletten Daten miteinander abgleicht. Dies ist nicht nötig. Es soll daher nur die gefilterten Zeilen vergleichen und die ausgefilterten/ausgeblendeten ignorieren. Wie bekomme ich das hin?Dass die relevanten Daten eingeblendet bzw. die irelevanten Daten ausgeblende sind, regle ich mit einem separaten vorgängigen Makro.
Danke für deine Hilfe!
Grüsse
Rolf