Ä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"