VBA Spalten vergleichen, gleiche löschen
11.11.2022 16:08:52
Ralf
Leider kriege ich das Problem nicht in den Griff:
Anforderung: Spalte N & P sollen verglichen werden, die Einträge welche identisch sind sollen aber gelöscht werden.
Am Schluss sollten nur der Eintrag in Spalte N stehen bleiben welcher nicht identisch ist.
Ich habe diesen Code schon versucht umzuschreiben, damit bei x=y der Eintrag gelöscht wird, jedoch hört dann die Schleife fast nicht mehr auf.
Wäre Euch sehr dankbar für Eure unterstützung.
Sub Find_Matches()
Range("N5:N" & Cells(Rows.Count, 14).End(xlUp).Row).Select
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("P5:P1000")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
Next y
Next x
End Sub