Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

duplikate über 5 spalten suchen und löschen

duplikate über 5 spalten suchen und löschen
18.05.2004 14:18:12
matt
hello people
ich habe eine tabelle mit ca 7000 adressen, welche
über 5 spalten reichen. in spalte a ist der name, in
spalte b der zusatzname, in c die strasse usw.
nun will ich alle doppelten datensätze löschen lassen per makro.
ist es möglich erst über alle 5 spalten zu vergleichen und zusätzlich
dann noch die sätze löschen, bei denen nur die spalten c, d und e übereinstimmen?
hoffe, ich habe mich verständlich ausgedrückt und das mir jemand helfen kann.
gruss matt

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

Betreff
Datum
Anwender
Anzeige
AW: duplikate über 5 spalten suchen und löschen
ChrisL
Hi Matt
Hier ein Beispiel mit bedingter Formatierung und Hilfsspalte...
https://www.herber.de/bbs/user/6510.xls
Hier ein Makro...

Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 1) = Cells(iiZeile - 1, 1) And _
Cells(iZeile, 2) = Cells(iiZeile - 1, 2) And _
Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub

oder...

Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub

Gruss
Chris
Anzeige
AW: danke @chrisL m.T.
matt
Hallo Chris
danke schön für deine beiden vorschläge, sind beide echt super.
hast mir sehr geholfen.
gruss matt

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige