Duplikate entfernen

Forumthread: Duplikate entfernen

Duplikate entfernen

31.08.2004 12:58:07

Bobo

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Duplikate entfernen

Dieter
Danke

31.08.2004 13:07:10

Bobo

AW: Duplikate entfernen

Dieter

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

Danke

31.08.2004 13:07:10

Bobo

Forumthread: Duplikate entfernen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread