vb

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("F7")) Is Nothing Then Exit Sub
    
    If IsNumeric(Target.Value) Then
        If Target.Value >= 0 And Target.Value < 80 Then
            Shapes("Trafo").Fill.ForeColor.RGB = vbWhite
        ElseIf Target.Value >= 80 And Target.Value < 100 Then
            Shapes("Trafo").Fill.ForeColor.RGB = vbYellow
        Else
            Shapes("Trafo").Fill.ForeColor.RGB = vbRed
        End If
    End If
    
End Sub