Gruppe
Ereignis
Bereich
Change
Thema
Hintergrundfarbe nach Eingabewert
Problem
Wie kann ich bei die Zellhintergrundfarbe bei Eingabewerten von über 10 auf Gelb und andernfalls auf Normal setzen lassen? Die bedingte Formatierung soll nicht eingesetzt werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change( _
ByVal Target As Excel.Range)
If Intersect(Target, Range("A1:B10")) _
Is Nothing Then Exit Sub
If Target.Value > 10 Then
Target.Interior.ColorIndex = 6
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub