Gruppe
Ereignis
Problem
Bei Änderung des Wahrheitswertes in Zelle B1 soll sich die Hintergrundfarbe dieser Zelle ändern. Die Bedingte Formatierung soll nicht eingesetzt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B1")
If .Value = True Then
.Interior.ColorIndex = 34
Else
.Interior.ColorIndex = 36
End If
End With
End Sub