Bitte um Hilfe! Kann man die doppelte Werte in Spalte A3:A ,die 2x vorkommen, per VBA-Code rot markieren lassen? und wenn die werte mehr als 2x vorkommen, gelb markieren?
Vielen Dank für eine Rückmeldung.
Gruß
Antonio
Sub GetDoubles()
Dim rngAll As Range, rngAct As Range
Set rngAll = Range("A3:A50")
For Each rngAct In rngAll.Cells
If WorksheetFunction.CountIf(rngAll, rngAct.Value) > 2 Then
rngAct.Interior.ColorIndex = 6
ElseIf WorksheetFunction.CountIf(rngAll, rngAct.Value) > 1 Then
rngAct.Interior.ColorIndex = 3
Else
rngAct.Interior.ColorIndex = xlColorIndexNone
End If
Next rngAct
End Sub
Gruss hans