Problem mit Entfernung von Duplikaten

Question

Hallo,&nbsp;ich habe eine Tabelle mit diverseren Begriffen (1 pro Zelle), die sich teilw. wiederholen und nicht miteinander zusammenhängen - anbei ein Beispiel.&nbsp;Ich würde gerne mit einer Funktion alle doppelte Begriffe entfernen, also dass alle Begriffe in allen Zellen miteinander verglichen werden und die doppelte Einträge gelöscht werden.&nbsp;Ich weiß, dass es die Funktion Duplikate entfernen gibt, aber die macht nicht das, was ich möchte... ;-(&nbsp;Danke für Eure Hilfe!

hansvogelaar · Answer

RO-FF&nbsp;
You could run this macro:
Sub ClearDups()
    Dim rng As Range
    Dim cel As Range
    Application.ScreenUpdating = False
    Set rng = Selection ' or ActiveSheet.UsedRange
    For Each cel In rng
        If Application.CountIf(rng, cel.Value) &gt; 1 Then
            cel.ClearContents
        End If
    Next cel
    Application.ScreenUpdating = True
End Sub

Forum Discussion

Problem mit Entfernung von Duplikaten

1 Reply

Resources