bis 10 rot
ab 10 - 100 gelb
ab 100 - 500 blau
ab 500 grün
dazu habe ich ein Makro aber es macht nicht was ich möchte ?
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
'Wenn Target aus mehr als 1 Zelle besteht, führe keine
'Hintergrundformatierung aus
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
'Außerhalb des Zellbereichs D20:E25 soll keine
'bedingte Hintergrundfärbung ausgeführt werden
If Application.Intersect(Range("D20:E25"), Target) Is Nothing Then Exit Sub
'Bedingte Hintergrundformatierung:
'Rot: Zellwert kleiner 10
'Gelb: Zellwert zwischen 10 und 100
'Weiß: Zellwert größer 100
If .Value 10 100 >= 500 Then
.Interior.Color = vbBlue
ElseIf .Value > 500 Then
.Interior.Color = vbGreen
End If
End With
End Sub
was habe ich hier falsch?
Vielen Dank für eure Hilfe
Gruss MaBlu