das nachfolgende Script zählt die doppelten Einträge in Spalte A und gibt diese in Spalte B wieder.
Soweit so gut.
Aber, wie kann ich das Script umschreiben damit die Einträge in Spalte I sind und die Ausgabe in Spalte J.
Sub test()
Dim iZeile As Long, LetzteZeile As Long
LetzteZeile = Range("A65536").End(xlUp).Row
For iZeile = 1 To LetzteZeile
If WorksheetFunction.CountIf(Range("A1:A" & iZeile), Cells(iZeile, 1)) = 1 Then _
Cells(iZeile, 1) = WorksheetFunction.CountIf(Columns(1), Cells(iZeile, 1))
Next iZeile
End Sub
Gruss Thomas