Hier ( mit Makrorecorder erstellt) - Musst nur den Range anpassen:
Cells.FormatConditions.Delete
Range("C2:E19").Select' Hier Range erweitern - z. B. C2:E1000
Range("B6").Activate' Kann eigentlich weg
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SUMME(ZS3:ZS5)<>MAX(ZS1:ZS2)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
|