Duplikate
Franz
habe hier im Forum ein tolles Makro zum Löschen von Duplikaten gefunden.
Stand im Achiv unter "Thema: Duplikate finden bei großen Datenmengen"
Wollte mir das Makro in meine obere Leiste zum Sofortstart einbinden.
Nun markiert mir das Makro die Dupletten in Spalte G.
Ist es möglich, dass bei Start des Makros nur die vorher markierte Spalte
nach Duplikaten durchsucht wird und automatisch eine Spalte neben der zu
durchsuchenden Spalte (also neben der vorher markierten Spalte) erzeugt wird,
die mit der Info "duplicate" gefüllt wird?
Mit großer Hoffnung
Franz
Option Explicit
Sub Find_Doppelte()
Dim oDic As Object, ArrayData(), ArrayAusgabe()
Dim n As Long
Dim nTimer
nTimer = Timer
Set oDic = CreateObject("Scripting.Dictionary")
With Sheets("Tabelle1") 'Tabelle anpassen
ArrayData = .Range("F3:F130000").Value2 'Zellbereich anpassen
ReDim ArrayAusgabe(1 To UBound(ArrayData), 1 To 1)
For n = 1 To UBound(ArrayData)
oDic(ArrayData(n, 1)) = oDic(ArrayData(n, 1)) + 1
Next n
For n = 1 To UBound(ArrayData)
If oDic(ArrayData(n, 1)) > 1 Then ArrayAusgabe(n, 1) = "duplicate"
Next n
'Ausgabe erste Zelle anpassen
.Range("G3").Resize(UBound(ArrayAusgabe)) = ArrayAusgabe
End With
MsgBox "Fertig nach " & Timer - nTimer & " Sekunden"
End Sub