Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte finden und ganze Zeile löschen

Doppelte finden und ganze Zeile löschen
04.04.2005 15:40:56
Werner
Hallo!
Sicher wurde mein Problem irgendwo schon behandelt. Leider finde ich aber absolut nichts. Ich habe wirklich viel gesucht.
Ich habe also eine Liste mit Daten in den Spalten C bis G.
In Spalte D stehen Werte, die auch doppelt vorkommen können.
Ich möchte die in Spalte D doppelt vorkommenden Werte finden und die gesamte Zeile des doppelten Wertes löschen, so das später in Spalte D jeder Wert nur einmal vorhanden ist.
Gibt's da vielleicht eine Lösung?
Vielen Dank schon mal für die Hilfe!
Viele Grüße
Werner

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte finden und ganze Zeile löschen
04.04.2005 15:53:06
u_
Hallo,

Sub doppelte_weg()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("D65536").End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("D:D"), Cells(i, 4)) > 1 Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Gruß
AW: Doppelte finden und ganze Zeile löschen
05.04.2005 08:35:39
Werner
Absolut genial!!!
Vielen Dank!
Dieses Forum (und vor allem die Leute darin) ist echt klasse!
Gruß
Werner
Anzeige

169 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige