Farbige Zellen zurücksetzen
23.01.2005 17:19:25
Erwin
ich habe verschiedene Zellen mit einer Farbe hinterlegt, die bei Eingabe eines Zahlenwertes wieder in ihren Urzustand (keine Füllung) zurückgesetzt werden sollen.
Dafür habe ich mir folgende Prozedur zusammengebastelt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Select Case Target
Case Is > 0
Target.Cells.Interior.ColorIndex = xlNone
End Select
End If
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Das klappt auch wunderbar, aber eben nur in einer Spalte. Ich habe aber über mehrere Spalten die farbigen Zellen hinterlegt.
Mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value > 0 Then
ActiveCell.Interior.ColorIndex = xlNone
End If
End Sub
habe ich es auch schon versucht, aber da wird beim Verlassen der Zelle nicht gleich zurückgesetzt, sondern erst bei einem erneuten Klick auf die Zelle, ist auch nicht gut.
Hat jemand eine Idee, dass beim Verlassen der Zelle (nach Eingabe einer Zahl) diese wieder in Ohne Füllung zurückgesetzt wird.
Wäre super!!
Erwin
Anzeige