Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1264to1268
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
Inhaltsverzeichnis

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

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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige