bräuchte kurz Eure Hilfe:
Sub Abweichung()
Dim Zelle As Range
Sheets("Tabelle1").Select
For Each Zelle In Range("P10:R25")
Select Case Zelle.Value
Case Is 1: Zelle.Font.ColorIndex = 10 ' >100% Farbe grün
Case Else
Zelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub
Ich will in der Range("P10:R25") Prozentwerte(die mit einer Formel berechnet werden)
mit unterschiedlichen Farben markieren. Anforderungen hab ich hinter den jeweiligen Case geschrieben. Irgendwie will das nicht so ganz funktionieren.
Weiß da jemand Rat?
Gruß und Dank Matthias