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