ich habe mir aus eurem Forum Sourcecode zum Löschen von Dupes in einer Tabelle "geklaut".
Und zwar Folgenden:
Dim verg(ActiveSheet.UsedRange.Rows.Count), z%
z = 2
' Tabelle sortieren
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Tabellenlänge ermitteln und Vergleichsstring bilden
Do While Cells(z, 1) <> ""
verg(z) = Cells(z, 1)
z = z + 1
Loop
' Doppelte Zeilen löschen
For r = z - 1 To 1 Step -1
If verg(r) = verg(r - 1) Then
Rows(r).Select
Selection.Delete Shift:=xlUp
End If
Next r
Der Code funktioniert soweit wunderbar, allerdings löscht er immer die erste Reihe der Tabelle - auch dann, wenn sie nicht doppelt vorhanden ist.
Erkennt jemand den Fehler im Code oder kann mir alternativ den Code-Workaround nennen, um jeweils vor Aufruf der Funktion an erste Stelle eine leere Zeile einzufügen.
Cu