Änderungen bei Mausklick

Bild

Betrifft: Änderungen bei Mausklick
von: Kretzing
Geschrieben am: 23.02.2005 10:31:48
Hallo zusammen,
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é
Bild

Betrifft: AW: Änderungen bei Mausklick
von: u_
Geschrieben am: 23.02.2005 10:53:45
Hallo,
nicht _Change sondern _SelectionChange.
Gruß
Bild

Betrifft: AW: Änderungen bei Mausklick
von: Kretzing
Geschrieben am: 23.02.2005 10:55:46
Funktioniert leider auch nicht?
Gruß
André
Bild

Betrifft: AW: Änderungen bei Mausklick
von: Beni
Geschrieben am: 23.02.2005 12:49:19
Hallo André,
Gruss Beni

Private Sub Worksheet_SelectionChange(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.Offset.Column = 22 Then
Target.Characters(Start:=1, Length:=1).Font.ColorIndex = 10
Target.Offset(0, 1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
Target.Offset(0, 2).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
If Target.Column = 23 Then
Target.Characters(Start:=1, Length:=1).Font.ColorIndex = 6
Target.Offset(0, 1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
Target.Offset(0, -1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
If Target.Column = 24 Then
Target.Characters(Start:=1, Length:=1).Font.ColorIndex = 3
Target.Offset(0, -1).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
Target.Offset(0, -2).Characters(Start:=0, Length:=1).Font.ColorIndex = 15
End If
End Sub

Bild

Betrifft: Dank Dir Beni! :) o.T.
von: Kretzing
Geschrieben am: 23.02.2005 14:37:33

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Änderungen bei Mausklick"