|
Hi Leute,
Ich habe folgendes Problem und wäre sehr dankbar wenn ihr mir dabei helfen könnt.
Ich habe dieses Makro im Internet gefunden :
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("Hauptliste") 'Tabelle anpassen
ArrayData = .Range("C2:C5000").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("B2").Resize(UBound(ArrayAusgabe)) = ArrayAusgabe
End With
MsgBox "Fertig nach " & Timer - nTimer & " Sekunden"
End Sub
In B2 - B5000 wird das wort "duplicate" ausgespuckt , falls ein Duplikat vorhanden ist,
Nun zu meinem Problem : Ich möchte den Bereich nicht bis C5000 laufen lassen, sondern bis zur letzten gefüllten Zelle
Ich danke im voraus und verbleibe
mit freundlichem Gruß
GeorgieGeorge
|