Makro automatisch ausführen
15.11.2004 14:47:32
Christian
ich glaub ich hab da ein ganz simples Problem, kann es aber selber nicht!
Ich hab ein Ampel eingebaut, die die Farbe wechselt, je nachdem wie ein Vergleich ist. Das Makro soll immer aktuell ausgeführt werden, je nachdem was ich in die Zelle schreibe.
Das Makro sieht wie folgt aus:
Sub Ampel()
If Sheets("Tabelle1").Range("Ein.act").Value < Sheets("Tabelle1").Range("Ein.ziel").Value Then
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ElseIf Sheets("Tabelle1").Range("Ein.act").Value = Sheets("Tabelle1").Range("Ein.ziel").Value Then
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Else
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End If
End Sub
Wo muss ich das Makro hinschreiben, das es immer automatisch ausgeführt wird?
Gruß
Christian