Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Doppelte Werte in Spalte löschen

Doppelte Werte in Spalte löschen
20.01.2007 20:25:20
WernerF
Hallo,
Ich möchte in einem Tabellenblatt in der Spalte D ab der Zeile 6 bis zur Zeile 199 nach doppelten Einträgen suchen. Ist ein Wert doppelt vorhanden, soll der Wert aus der Zelle gelöscht werden (nicht die Zeile). Die Werte stehen aufsteigend sortiert in der Spalte. Der Erste, der doppelt vorkommenden Werte, soll nicht gelöscht werden.
Danke für jede Hilfe
WernerF

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte in Spalte löschen
20.01.2007 20:54:11
Peter
Hallo Werner,
das könnte z. B. so gehen:
Public

Sub OhneDoppelte()
Dim Bereich  As Range
Dim lZeile   As Long
Set Bereich = Range("D6:D199")
For lZeile = 199 To 6 Step -1
If Application.WorksheetFunction.CountIf(Bereich, Cells(lZeile, 4).Value) > 1 Then
Cells(lZeile, 4).ClearContents
End If
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Doppelte Werte in Spalte löschen
20.01.2007 21:26:23
WernerF
Hallo Peter,
das war genau das was ich gebraucht habe!
Herzlichen Dank!
WernerF
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige