Ich bräuchte Eure Unterstützung. Ich habe eine Liste wo die Spalten: A, B, C und D aufscheinen. Es sollen, wenn die Werte in Zelle A und C ident sind beide Zeilen gelöscht werden. Den u.a. Code habe ich gefunden, jedoch gleicht der nur die Spalte A ab.
Danke im voraus
chris
Sub Gleiche_Loeschen_SpalteA()
Dim i As Long
Dim lngLastR As Long
lngLastR = Cells(Rows.Count, "A").End(xlUp).Row + 1
'Zellinhalte in Spalte A durch "" = Leerzelle ersetzen
Do
i = i + 1
Range(Cells(i + 1, "A"), Cells(lngLastR, "A")).Replace _
what:=Cells(i, "A").Value, replacement:="", lookat:=xlWhole
Loop While WorksheetFunction.CountIf(Range(Cells(i + 1, "A"), Cells(lngLastR, "A")), "")