meine Frage ist bestimmt nicht schwer aber ich tue mich das gerade.
Ich möchte über ein Makro in meiner Tabelle2 Spalte C alle doppelten oder noch öfters vorkommenden Einträge löschen.
Kann mir da einer helfen?
mfg Blue Bird
Sub Duplikate_weg()
Dim i As Long
Application.ScreenUpdating = False
Sheets("Tabelle2").Activate
Columns("C:C").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
i = 1
Do Until IsEmpty(Cells(i, 3).Value)
If Cells(i, 3).Value = Cells(i + 1, 3).Value Then
Cells(i, 3).EntireRow.Delete
Else
i = i + 1
End If
Loop
Application.ScreenUpdating = True
End Sub
Das Makro löscht wohl die komplette Reihe und ordnet die Werte. Ich weiß nicht ob das so gewollt war.