Duplikate entfernen

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Duplikate entfernen

Duplikate entfernen von Bobo vom 31.08.2004 10:58:07

AW: Duplikate entfernen - von Dieter Maj am 31.08.2004 11:00:12
- Danke - von Bobo am 31.08.2004 11:07:10

Betrifft: Duplikate entfernen von: Bobo
Geschrieben am: 31.08.2004 10:58:07

Hallo zusammen,

ich habe eine Liste bestehend aus zwei Spalten. In Spalte A ist einen Identifikationsnummer angegeben. In der Liste sind Duplikate. Diese möchte ich der Liste entnehmen. Wer kann mir da einen eleganten Weg nennen.

Vielen Dank.
Bobo

Betrifft: AW: Duplikate entfernen von: Dieter Maj
Geschrieben am: 31.08.2004 11:00:12

Hallo Bobo
vielleicht so:

Sub DoppelteWeg()
'für Spalte A, für Texte
    Dim i As Integer, iRows As Integer
    iRows = Cells(Cells.Rows.count, 1).End(xlUp).Row
    For i = iRows To 1 Step -1
        If WorksheetFunction.CountIf(Columns(1), Cells(i, 1)) > 1 Then
            Rows(i).Delete
        End If
    Next i
End Sub

Gruß Dieter