Ampel. Code ändern?
25.12.2003 15:22:21
Heinrich
Wünsche allen ein frohes und gesegnetes Weihnachtsfest.
Nun zu meiner Frage. Habe folgenden VBA-Code im Net gefunden.
Kann man diesen so anpassen, das er auch bei Eingabe in mehreren Zellen
funktioniert? (z.B. Zellen C6 bis F6 und C10 bis F10 )
Folgender Makro kontrolliert die Farbe der 'Ampel' genannten Ellipse der Tabelle abhängig vom Wert der Zelle A1:
Private Sub Worksheet_Change(ByVal Target As Range)
tst = Cells(1, 1).Value
ActiveSheet.Shapes("Ampel").Select
If tst < 10 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 'rot
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ElseIf tst < 100 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 'gelb
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Else
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17 ' grün
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
Range("A1").Select
End Sub
Gruß
Heinrich