Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Target.Column = 9
Then
sngAbweichung = (Target.Value - Target.Offset(0, -2).Value) / Target.Offset(0, -2).Value * 100
If
Abs(sngAbweichung) >= 10
Then
Target.Font.Color = vbRed
ElseIf
Target.Column = 7
Then
sngAbweichung = (Target.Offset(0, 2).Value - Target.Value) / Target.Value * 100
If
Abs(sngAbweichung) >= 10
Then
Target.Offset(0, 2).Font.Color = vbRed
End
If
End
Sub