Grafiken, die je nach Wert die Farbe wechseln
08.03.2004 15:33:15
Johanna
ich versuche eine Tabelle zu erstellen, in der ein Smily erscheint. Die Farbe und das Lächeln )I( bezieht sich auf eine Zelle. Je nach Wert soll das Smily rot, gelb oder grün sein, und dementsprechend auch der Mund. Die Programmierung dafür habe ich mir bei einer anderen Tabelle abgeschaut, aber es funktioniert einfach nicht. Das Smily wechselt seine Farbe nicht, es ist immer grün und lacht. Meine Frage: Wo ist der Fehler????
Hier die Programmierung:
Private Sub TextBox1_Change()
Worksheets("Vertriebssteuerung").Select
If Worksheets("Vertriebssteuerung").Range("AF28").Value <= Worksheets("Vertriebssteuerung").Range("AT10").Value Then Call roter_smily("Smily")
If Worksheets("Vertriebssteuerung").Range("AF28").Value >= Worksheets("Vertriebssteuerung").Range("AU10").Value Then Call gelber_smily("Smily")
If Worksheets("Vertriebssteuerung").Range("AF28").Value >= Worksheets("Vertriebssteuerung").Range("AV10").Value Then Call gruener_smily("Smily")
End Sub
Sub gruener_smily(Smily As String)
Worksheets("Vertriebssteuerung").Select
ActiveSheet.Shapes(Smily).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Adjustments.Item(1) = 0.8111
End Sub
Sub gelber_smily(Smily As String)
Worksheets("Vertriebssteuerung").Select
ActiveSheet.Shapes(Smily).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 51
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Adjustments.Item(1) = 0.765
End Sub
Sub roter_smily(Smily As String)
Worksheets("Vertriebssteuerung").Select
ActiveSheet.Shapes(Smily).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Adjustments.Item(1) = 0.7187
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub
Kann mir irgendjemand helfen??
Freue mich über jede Anregung, die mir weiterhelfen kann!
Danke Johanna