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

doppelte eliminieren

Forumthread: doppelte eliminieren

doppelte eliminieren
14.01.2005 12:39:31
Vera
Hallo,
Ich habe eine Liste, in der Nummern doppelt vorkommen. Jetzt will ich jedes mal wenn eine Nummer doppelt vorkommt, die komplette Zeile loeschen, dass jede Nummer im ganzen sheet nur einmal vorkommt.
Danke Vera
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: doppelte eliminieren
14.01.2005 12:46:30
Mac4
Hi Vera,
welcher Datensatz soll denn gelöscht werden? Der aktuell eingetragen oder der bereits vorhandene?
Marc
AW: doppelte eliminieren
Vera
Beide Datens'tye sind bereits vorhanden.
Einfach einer von beiden soll gel;scht werden, so dass jeder nur noch einmal vorhanden ist.
Gru- Vera
AW: doppelte eliminieren
14.01.2005 12:55:24
Mac4
HI Vera,
dann müsste so etwas gehen:

Sub test()
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) > 1 Then
Rows(i).Delete
End If
Next
End Sub

Marc
Anzeige
AW: doppelte eliminieren
Stephan
Eine Möglichkeit ist es, Dir eine Hilfspalte anzulegen, die die Häufigkeit zählt, mit der die Nummer vorkommt.
Das zählen kannst Du dann mit =zählenwenn(Bereich;Nummer) erledigen.
Dann einen Autofilter drüber und diejenigen, die in der Hilfsspalte 2 oder mehr stehen haben löschen.
Ok?
Gruß Stephan
Anzeige
AW: doppelte eliminieren
Vera
mit y'hlen wenn geht es leider nicht, da wenn ein DAtensaty 2x vorkommt ich ihn nur noch einml haben m;chteu nd bei 6000 Positionen jeden der doppelt vorkommt h'ndisch yu l;schen sehr umst'ndlich ist.
Gru- Vera
AW: doppelte eliminieren
Dr.
Über Filter|Spezialfilter|ohne Duplikate
;

Beliebteste Forumthreads (12 Monate)

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