Mehrfach vorhanden dann löschen

Bild

Betrifft: Mehrfach vorhanden dann löschen von: Klaus
Geschrieben am: 23.02.2005 20:24:07

Hallo,
ich habe in Spalte c daten stehen, die mehrfach vorhanden sind.
Ich möchte die Zeilen löschen die in Spalte c doppelt bis dreizigfach vorhanden sind. So, das die Daten der Spalte c immer nur einmal vorkommen.
Es kann auch sein das in der Spalte c die Zelle nur einmal vorhanden ist.
Dann muß diese Zeile stehen bleiben.
Ich komme nicht weiter.
Ich habe die Recherche durchsucht, doch leider ohne Erfolg.
Vielen Dank im voraus für eure Hilfe
Klaus

Bild


Betrifft: AW: Mehrfach vorhanden dann löschen von: Bert
Geschrieben am: 23.02.2005 20:48:28


Sub stark_vereinfacht()
Dim z As Long
Application.ScreenUpdating = False
For z = [c65536].End(xlUp).Row To 1 Step -1
  If Application.CountIf([C:C], Cells(z, 3)) > 1 Then Rows(z).Delete
Next
Application.ScreenUpdating = True
End Sub


Bert


Bild


Betrifft: AW: Mehrfach vorhanden dann löschen von: Klaus
Geschrieben am: 23.02.2005 21:03:45

Hallo Bert,
wieso stark vereinfacht?
Das ist genau das wonach ich gesucht habe.
Ich bin immer überrascht, wie ihr das alles so hinbekommt.
Vielen Dank
Klaus


Bild


Betrifft: AW: Mehrfach vorhanden dann löschen von: Bert
Geschrieben am: 23.02.2005 21:16:21

Professionell müßte da schon etwas mehr Aufwand betrieben werden.

Bert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mehrfach vorhanden dann löschen"