Duplikate loeschen mit Code
09.03.2018 16:30:00
Torsten
ich stehe gerade etwas auf der Leitung glaube ich.
Folgendes Problem:
In einer Tabelle werden aus einer anderen Tabelle Daten importiert und unter den vorhandenen Daten angefuegt.
Jetzt kann es vorkommen, dass doppelte Eintraege entstehen, sprich eine Zeile wird importiert, die vorher schon mal importiert wurde, da dieser Fall noch nicht erledigt ist.
Wie ich Duplikate loesche, die in einer Spalte verglichen werden, weiss ich:
Dim lRow As Long
Application.ScreenUpdating = False
For lRow = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Columns(5), Range("E" & lRow).Value) > 1 Then
Rows(lRow).Delete Shift:=xlUp
End If
Next lRow
Application.ScreenUpdating = True
Hier wird in Spalte E verglichen.wie kann ich jetzt den Code erweitern, damit ich 2 Spalten vergleichen kann. Also wenn in 2 Zellen in 2 Zeilen das gleiche steht.