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

Doppelte Einträge löschen

Doppelte Einträge löschen
11.08.2006 08:08:26
Erich
Hallo und guten Morgen..
Wie kann ich den Code ändern.
In der Spalte 1 stehen Zeiten formatiert hh:mm.
In der Spalte 2 stehen Namen formatiert mit Text
Ich möchte doppelte Einträge löschen, aber es können in der Spalte 1
gleiche Zeiten stehen die aber zu verschiedenen Namen gehören
Nun möchte ich die beiden Spalten überprüfen damit wirklich nur
die doppelten Zeilen gelöscht werden.

Sub DblFind()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub

Ich hoffe jemand versteht was ich meine.
Vielen Dank schon mal
Gruss Erich

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

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge löschen
11.08.2006 08:13:57
Hans
Hallo Erich,
verwende in diesem Fall besser den Spezialfilter:

Sub DoppelteLoeschen()
Columns("A:B").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("C1"), _
Unique:=True
Columns("A:B").Delete Shift:=xlToLeft
End Sub

gruss hans
AW: Doppelte Einträge löschen
11.08.2006 08:18:47
Erich
Hallo Hans
Erstmal vielen Dank für die Express-Antwort
Klappt absolut perfekt.
Meine Tabelle wird endlich übersichtlicher.
Nochmals Danke und viele Grüsee
Erich
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige