Gruppe
Ereignis
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.
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