Aktualisierung bei Worksheet_SelectionChange
17.01.2005 13:02:52
Kretzing
ich habe mit folgendem Code eine Statusanzeige gebaut und damit ein Problem. Ändere ich den Wert in der Spalte Q wird die Anzeige in der Spalte R erst dann aktualisiert, wenn ich die Zelle erneut ansteuere. Wie kann ich das so ändern, dass mit Abschluss der Eingabe die Anzeige aktualisiert wird?
Vielen Dank!
André
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column <> 17 Then Exit Sub
If Target.Cells.Count <> 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
'Statusanzeige ändern
blau = Int(Target.Value * 20)
grau = 20 - blau
'blau
With Target.Offset(0, 1).Characters(Start:=1, Length:=blau).Font
.ColorIndex = 41
End With
'grau
With Target.Offset(0, 1).Characters(Start:=blau + 1, Length:=grau).Font
.ColorIndex = 15
End With
End Sub