Änderungen bei Mausklick
23.02.2005 10:31:48
Kretzing
ich habe eine Ampel (Spalten V (grün) bis X (rot)) in mein Arbeitsblatt eingebaut und würde gerne per Mausklick die Ampellichter steuern. Wenn ich auf die Zelle in Spalte V (größer als Zeile 2) klicke, soll das Ampellicht grün werden und die angrenzenden Zellen in den Spalten W und X grau.
Ich habe es mit folgendem Code versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
' Automatisches Umschalten der Ampeln wenn eine Zelle mit
' einem Ampellicht aktiviert wird
If Target.Column < 22 Then Exit Sub
If Target.Column > 24 Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target.Column = 22 Then
With Target.Address.Characters(Start:=1, Length:=1).Font.ColorIndex = 10
With Target.Offset(0, 1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
With Target.Offset(0, 2).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
If Target.Column = 23 Then
With Target.Address.Characters(Start:=1, Length:=1).Font.ColorIndex = 6
With Target.Offset(0, 1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
With Target.Offset(0, -1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
If Target.Column = 24 Then
With Target.Address.Characters(Start:=1, Length:=1).Font.ColorIndex = 3
With Target.Offset(0, -1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
With Target.Offset(0, -2).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
End Sub
Dieser Code funktioniert aber irgendwie nicht und macht es auch nicht möglich, dass die Ampelfarbe sich nur bei Mausklick ändert.
Wie kann ich das realisieren?
Vielen Dank!
Schöne Grüße
André