|
Hallo,
Das Problem ist, dass du die Hintergrundfarbe nicht immer auf die gerade erzeugte Bedingung setzt.
du setzt bei nach dem Erzeugen der 3. Bedingung wieder die Hintergrundfarbe von der 1. Bedingung.
With Selection.FormatConditions(1).Interior
Besser ist es speicher dir die frisch erzeugte Bedingung in ein Variabel, dann kannst du sie darüber sauber ansprechen.
Sub Farbig()
Dim FC As FormatCondition
Columns("C:C").Select
Set FC = Selection.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="=10")
FC.SetFirstPriority
With FC.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
FC.StopIfTrue = False
Set FC = Selection.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=5")
FC.SetFirstPriority
With FC.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
FC.StopIfTrue = False
Set FC = Selection.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=5", Formula2:="=10")
With FC.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
End Sub
|