Frage zu Abweichungsanalyse - Ampel
23.11.2004 12:56:26
Andy1980
ich arbeite gerade an einer Abweichungsanalyse und habe folgendes Problem. Ich habe ein Feld D3, in welches ich Planwerte einfüge und ein Feld E3 in welches ich Istwerte einfüge. Im Feld F3 ziehe ich den Istwert vom Planwert ab (also D3-E3). Die ABeichung soll in einem Kreis (Ellipse1) angezeigt werden mit grün, rot oder gelb.
Ich habe folgendes VBA Skript geschrieben um die Ampel zu steuern:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$3" Then
Select Case Target.Value
Case 0 To 200
ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.SchemeColor = 11
Case 201 To 700
ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.SchemeColor = 13
Case Is > 700
ActiveSheet.Shapes("Ellipse 1").Fill.ForeColor.SchemeColor = 10
End Select
End If
End Sub
Das Problem ist nur, dass der Kreis nichts anzeigt aufgrund der Formel D3-E3 im Feld F3. Denn gebe ich im Feld F3 die Abweichung manuell ein ohne Formel funktioniert die Ampel.
Kann mir jemand der sich mit VBA auskennt helfen dieses Problem zu lösen?
Liebe Grüße
Andy