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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige