Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zuletzt gefundene doppelte Einträge löschen

Zuletzt gefundene doppelte Einträge löschen
Steffan
Hallo zusammen,
ich möchte in einem Tabellenblatt die Zeilen aller doppelt gefundenen Einträge in Spalte A löschen, wobei allerdings immer der zuletzt gefundene Datensatz erhalten bleiben soll.
Habt ihr einen Vorschlag für dieses Problem?
Vielen Dank
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zuletzt gefundene doppelte Einträge löschen
05.06.2012 10:51:02
Beverly
Hi Steffan,
Sub DoppelteLoeschen()
Dim lngZeile As Long
For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), _
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If Application.CountIf(Columns(1), Cells(lngZeile, 1)) > 1 Then
Rows(lngZeile).Delete
lngZeile = lngZeile - 1
End If
Next lngZeile
End Sub



Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige