Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Duplikate entfernen

Forumthread: Duplikate entfernen

Duplikate entfernen
31.08.2004 10: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
Danke
31.08.2004 11:07:10
Bobo
a
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige