Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbige Zellen zurücksetzen

Farbige Zellen zurücksetzen
23.01.2005 17:19:25
Erwin
Hallo Excel-Freunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbige Zellen zurücksetzen
23.01.2005 17:39:56
Josef
Hallo Erwin!
ZB. so:

Private Sub Worksheet_Change(ByVal Target As Range)
'in Spalte 2 bis 10
If Target.Column > 1 And Target.Column < 11 And Target.Count = 1 Then
If Target <> "" Then Target.Interior.ColorIndex = xlNone
End If
End Sub

"Application.EnableEvents = False" kannst du dir hier sparen,
weil das zuweisen der Hintergrundfarbe kein Ereignis auslöst!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Farbige Zellen zurücksetzen
Erwin
Hallo Sepp,
super!!!!
Klappt wunderbar, ich danke dir und wünsche noch einen schönen Abend
Erwin aus Niederbayern
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige