Doppelte Einträge löschen
03.03.2004 07:17:35
Frank
ich habe folgendes Makro aus dem Forum welches auch funkioniert:
Sub doppelte_DS_ausschneiden()
For r = Cells(65536, 1).End(xlUp).Row To 1 Step -1
For i = 1 To Cells(65536, 1).End(xlUp).Row
If r = i Then i = i + 1
If Cells(r, 1) = Cells(i, 1) Then
Range(Cells(r, 1), Cells(r, 6)).Delete Shift:=xlUp
Else
Range(Cells(i, 1), Cells(i, 6)).Delete Shift:=xlUp
End If
r = r - 1
Next i
Next r
End Sub
Mein Problem ist jetzt, dass nicht der erste Datensatz gelöscht wird sondern die
nachfolgenden. Beispiel: Ich habe in A20 und A21 die gleichen Inhalte. Ich möchte aber dass der erste Datensatz gelöscht wird. Ich weiß aber nicht wie ich das Makro umstellen muss.
Gruß
Frank
Anzeige