Wenn der Zellwert kleiner/gleich 50 dann rot
ab 50,01 bis 55 = gelb
ab 55,01 bis 60 = grün
ab 60,01 = blau
Versuch:
Sub intervalle1()
Dim c As Range
For Each c In Range("M32:032")
With c
If .Value = 0 Then
.Interior.ColorIndex = 0
ElseIf .Value
Wenn jetzt noch eine Abfrage dazukommt:
Bereich M34 bis O34 und andere Intervalle, wie würde dies eingefügt?
Wenn der Zellwert kleiner/gleich 60 dann rot
ab 60,01 bis 65 = gelb
ab 65,01 bis 75 = grün
ab 75,01 = blau