Sub setFC()
With Worksheets("Tabelle1").Range("E4:E15")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$F4$G4"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.ColorIndex = 43
End With
.StopIfTrue = False
End With
.FormatConditions.Add Type:=xlExpression, Formula1:="=$F4>$G4"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.ColorIndex = 3
End With
.StopIfTrue = False
End With
End With
End Sub