Doppelte Löschen
23.07.2014 16:14:47
Max
Ich hab da noch ein Problem mit doppelten Werten in meiner Excel Liste.
Ich kann zwar die Doppelten löschen, jedoch möchte ich einen Bezug zur nebenstehende Spalte haben.
Und zwar sollen die Daten, die in Spalte A stehen, verglichen werden und dann die zeile gelöscht werden, neben der in Spalte B, der kleinere Zahlenwert steht.
Beispiel:
A B
4 2
3 1
4 3
Bei dieser Konstellation soll nun die erste Zeile also 4 und 2 gelöscht werden da die 3 höher als die 2 ist neben der 4. Bisher lässt excel automatisch den oberen Wert.
Wie schaffe ich es also, dass Excel sich die nebenstehende Spalte mitanschaut ?
Mein Code bisher:
Sub Gleiche_Loeschen()
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")), "") Liebe Grüße
Max