Datum

Titel

25.04.2024 08:41:49

VBA: Probleme mit pdftk zum Zusammenfügen

25.04.2024 00:42:03

Listbox mit gefilterten Daten füllen

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1088to1092

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Makro doppelte Zeilen löschen

Forumthread: Makro doppelte Zeilen löschen
4 Beiträge zu diesem Forumthread
Anzeige
315 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro:


Sub supp_double()
Dim l As Long
For l = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If WorksheetFunction.Match(Cells(l, 1), [a:a], 0)

Bin für jede Hilfe dankbar!
gruss
christian

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Makro doppelte Zeilen löschen

David
AW: Makro doppelte Zeilen löschen

Christian
Unsortierte doppelte Zeilen löschen (VBA)

Erich
AW: Unsortierte doppelte Zeilen löschen (VBA)

Christian

AW: Makro doppelte Zeilen löschen

22.07.2009 10:44:51

David

Hallo Christian,
evtl. so:
If WorksheetFunction.Match(Cells(l, 1), [a:a], 0) (ungetestet)
Übrigens: Das kleine L in der Darstellung ist verwirrend, da es sich nicht von der 1 unterscheidet.

Cells(l,1)

könnte sein
L, 1
1, L
L, L
1, 1
Gruß
David

AW: Makro doppelte Zeilen löschen

22.07.2009 10:51:45

Christian

Hi David!
Super, hat funktioniert! (trotz der Verwirrung! ;) )
vielen dank!
gruss
christian

Unsortierte doppelte Zeilen löschen (VBA)

22.07.2009 12:31:44

Erich

Hi Christian,
hier noch eine Routine, die auch bei unsortierten Listen
die Zeilen mit dem jeweils letzten Vorkommen stehen lässt:


Sub supp_double2()
Dim zz As Long, rngL As Range
For zz = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1
If Not IsError(Application.Match(Cells(zz, 1), _
Range(Cells(zz + 1, 1), Cells(Rows.Count, 1)), 0)) Then
If rngL Is Nothing Then
Set rngL = Rows(zz)
Else
Set rngL = Union(rngL, Rows(zz))
End If
End If
Next zz
If Not rngL Is Nothing Then rngL.Delete
End Sub

Diese Routine ist wohl um Einiges schneller.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Unsortierte doppelte Zeilen löschen (VBA)

22.07.2009 12:40:34

Christian

Hallo Erich,
vielen Dank für den Hinweis, die Routine funkioniert genauso wie die vorhandene Lösung, nur eben ca. doppelt so schnell! :)
Werde jetzt deinen code verwenden!
danke und gruss
christian