AW: Duplikate
09.10.2005 22:34:43
HansH
Moin William,
hier ein neues Angebot (nicht von mir, ist aus dem Forum). Die Daten in Spalte A bis Zeile 500, werden geprüft und in Spalte B gekennzeichnet. Die erste (mehrfache oder einfache)Zahl ist Original, die folgenden Duplikate. Über normalen Autofilter sortieren und Daten der ganzen Spalte löschen. Danach Autofilter alles anzeigen. Nur die Doppelten sind gelöscht.
Spalten, letzte Zeile und Ausgabespalte sind einfach anzupassen. Aber aufgepasst. Hier sinds 500 Zeilen, - bei 5000 hatte ich Probleme.
Sub test()
Dim Zelle As Range, lngR As Long, lngC As Long
Dim letzteSpalte As Integer
Dim neueSpalte As Integer
Dim myZeile As Integer
letzteSpalte = 1 'hier naturlich deine Werte übergeben
myZeile = 500
neueSpalte = 2
''Range(Cells(1, letzteSpalte), Cells(myZeile, letzteSpalte)).Select
''If Selection.Columns.Count > 1 Then Selection.Columns(1).Select
Set rng = Range(Cells(1, letzteSpalte), Cells(myZeile, letzteSpalte))
lngR = rng.Rows.Count
For Each Zelle In rng
For lngC = 1 To lngR
With Zelle
If .Value <> "" And Cells(rng(lngC).Row, neueSpalte) <> "Original" _
And Cells(rng(lngC).Row, neueSpalte) <> "Duplikat" Then
If Zelle = rng(lngC) Then
Cells(rng(lngC).Row, neueSpalte) = "Duplikat"
Cells(.Row, neueSpalte) = "Original"
End If
End If
End With
Next
Next
End Sub
Viel Spaß
Hans