CountIf mit mehreren Bedingungen
14.06.2019 12:54:28
MaAs
ich habe mal wieder dieses Forum durchforstet, aber mein Anliegen nicht so gefunden, wie ich es brauche (oder mein Verständnis ist noch nicht so ausgeprägt).
Ich möchte folgendes erreichen:
In Spalte C sind Namen vorhanden und in Spalte G sind Zahlen vorhanden. Nun sollen alle Namen mit roter Schrift versehen werden, die mehrfach auftauchen aber auch eine identische Nummer haben.
Bsp.
Hans 3
Peter 5
Nina 4
Peter 5
Hans 2
Hier sollte jetzt nur Peter rot hervorgehoben werden.
Ich habe bereits folgendes Makro, was alle Namen markiert, die mehrfach auftauchen.
Sub Duplikate_hervorheben()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("C2:C500")
For Each Zelle In Bereich
If WorksheetFunction.CountIf(Bereich, Zelle.Value) > 1 Then
Zelle.Font.ColorIndex = 3
End If
Next Zelle
End Sub
Vielen Dank
Mariam