Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B2:B200")) Is Nothing Then
Set PlageTest = Range("B2:B200")
For Each Cell In PlageTest
If Cell.Value > 0 Or Cell.Value = "" Then
Cell.Offset(0, -1).Font.ColorIndex = 1
Else
Cell.Offset(0, -1).Font.ColorIndex = 2
End If
Next
End If
End Sub