Doppelte Einträge löschen, und farblich markieren

Mahlzeit!!
Ich hab ein kleines Problem, und hoffe auf Eure fachmännische Hilfe:
-Ausgangsmaterial ist eine Adressdatei in Excel 2003
- Doppelte bzw. 3-fach vorkommende Einträge sollen bis auf einen gelöscht werden
- der übrig gebliebene Eintrag soll farblich markiert werden
- das ganze sollte automatisch ablaufen. D.h. bei einem Neueintrag am Ende der Liste soll diese nach z.B. Spalte B sortiert werden und o.g. Prüfung stattfinden. (oder anders herum)
Über "Spezial- oder Autofilter" funktioniert das ganze leider nicht.
Auch mit Hilfe von Daten ... Gültigkeit ... Vergleich stellt sich nicht das gewünscht Ergebnis ein.
Ich werde wohl nicht drum herum kommen, das ganze in vba zu machen.
Da meine Kentnisse etwas begrenzt sind, setze ich ganz auf euch.
Vielen Dank im Voraus!!!!
MfG Carsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim laR As Long, i As Long If Target.Column <> 3 Then Exit Sub laR = Cells(Rows.Count, 2).End(xlUp).Row Range("A1:C" & laR).Sort Key1:=Range("B1"), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal For i = laR To 2 Step -1 If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Rows(i).Delete Shift:=xlUp Cells(i - 1, 2).Interior.ColorIndex = 6 End If Next i End Sub

Hallo Werner,
ich hatte heute ein bissel mehr Zeit zum Testen.
Das Programm funktioniert leider nicht ganz richtig.
Es werden mir einfach viel zu viele Daten gelöscht, und ich finde den Fehler nicht.
Vielleicht hab ich mich falsch ausgedrückt:
Es handelt sich um eine Adressdatei, bei der doppelte Kunden rausgeworfen werden und diese gleichzeitig markiert werden sollen.
- Spalte A: Anrede
- Spalte B: Vorname (kommt nicht immmer vor. Also evtl. leere Zelle)
- Spalte C: Nachname
- Spalte D: Firma (nach dieser Zelle soll selektiert !!UND!! sortiert werden)
- Spalte E: Anschrift
- Spalte F: PLZ (fehlt auch ab und zu)
- Spalte G: Tel.
- ...bis Spalte K
Es ist schon fast egal, bei Änderung welcher Zelle das Programm startet.
Das hab ich ins worksheet eingespeist:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim laR As Long, i As Long
If Target.Column <> 4 Then Exit Sub
laR = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:K" & laR).Sort Key1:=Range("D2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
For i = laR To 2 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Rows(i).Delete Shift:=xlUp
Cells(i - 1, 2).Interior.ColorIndex = 6
End If
Next i
End Sub

Das Problem kann gar nicht so gross sein, aber für mich ist´s einfach unsichtbar.
MfG
Carsten

Private Sub Worksheet_Change(ByVal Target As Range) Dim laR As Long, i As Long If Target.Column <> 11 Then Exit Sub laR = Cells(Rows.Count, 2).End(xlUp).Row Range("A2:K" & laR).Sort Key1:=Range("B2"), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal For i = laR To 2 Step -1 If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Rows(i).Delete Shift:=xlUp Cells(i - 1, 2).Interior.ColorIndex = 6 End If Next i End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim laR As Long, i As Long If Target.Column <> 4 Then Exit Sub laR = Cells(Rows.Count, 2).End(xlUp).Row Range("A2:K" & laR).Sort Key1:=Range("D2"), Order1:=xlAscending, _ Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal For i = laR To 2 Step -1 If Cells(i, 2).Value = Cells(i - 1, 2).Value Then Rows(i).Delete Shift:=xlUp Cells(i - 1, 2).Interior.ColorIndex = 6 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

Doppelte Einträge löschen, und farblich markieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelte Einträge löschen, und farblich markieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread