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