wie kann ich im Range D20:D120 per Makro doppelte Eintrage suchen und finden. Dann soll ein bestimmter code ausgeführt werden.
Danke Marko
Sub Doppelte()
Dim Zelle As Range
For Each Zelle In Range("D20:D120")
If Application.WorksheetFunction.CountIf(Range("D20:D120"), Zelle.Value) > 1 Then
'bestimmter Code
End If
Next
End Sub
Gruß
Uwe
(:o)