With
Range(
"O4:O100"
)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ISTZAHL(O4)"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With
.FormatConditions(1).Font
.Bold =
True
.Italic =
False
.TintAndShade = 0
End
With
.FormatConditions(1).StopIfTrue =
False
End
With
With
Range(
"M4:M100"
)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ISTZAHL(O4)=Falsch"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With
.FormatConditions(1).Font
.Bold =
True
.Italic =
False
.TintAndShade = 0
End
With
.FormatConditions(1).StopIfTrue =
False
End
With
With
Range(
"K4:K100"
)
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ISTZAHL(M4)=Falsch"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With
.FormatConditions(1).Font
.Bold =
True
.Italic =
False
.TintAndShade = 0
End
With
.FormatConditions(1).StopIfTrue =
False
End
With