CountIf(meinBereich, Zelle.Value) > 1 Then Zelle.Interior.ColorIndex = 36 End If Next Zelle End SubNegative Zahlen hervorhebenDieses Makro automatisiert das Hervorheben negativer Zahlen.'Negative Zahlen hervorheben Sub NegativeZahlenHervorheben() Dim meinBereich As Range Dim Zelle As Range Set ...