Office: (Office 365) Doppelte in einer Reihe löschen?

Hallo,

Habe ein Problem mit meinem Code und finde den fehler nicht. Ich habe eine Tabelle in der in Spalte "C" Namen stehen, diese können doppelt sein.
Das funktioniert meistens auch ganz gut, aber manchmal übersieht er welche, was ich nicht so ganz verstehe. Hat jemand ne Idee was man verbessern könnte?
Wenn etwas doppelt auftritt, dann sollte er die gesamte Zeile löschen und weiter.

Sub DeleteDouble()

Application.ScreenUpdating = False
Sheets("Original Values").Range("C28").Activate

'Find the last used row in a Column: column A in this example
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row
End With

Do
If ActiveCell = ActiveCell.Offset(1, 0) Then
ActiveCell.EntireRow.Delete Shift:=xlUp
LastRow = LastRow - 1
Else
ActiveCell.Offset(1, 1).Activate
End If

Loop Until ActiveCell.Row = LastRow + 1

Application.ScreenUpdating = True
End Sub

Vielen Dank :)

 

Moin

Warum verwendest du nicht RemoveDuplicates?

 

Hallo,

Danke für die Antwort, funktioniert leider für mich nicht oder ich bekomm es nicht richtig angewendet.
Mit removeduplicates wird immer zuviel oder zu wenig gelöscht.

Trotzdem Danke für den Vorschlag :)

 

Falls jemand noch einen Vorschlag hat oder mir unter die Arme greifen möchte, wäre ich natürlich sehr dankbar dafür. :)

 

Hallo Lizz,

Code:

'....
  Else
      ActiveCell.Offset(1, 1).Activate
  End If
'...

müsste es nicht korrekterweise lauten:
ActiveCell.Offset(1, 0).Activate
denn sonst wechselst du in Spalte D etc.