Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Farbänderung bei Änderung des Wahrheitswertes

Gruppe

Change

Problem

Bei Änderung des Wahrheitswertes in Zelle B1 soll sich die Hintergrundfarbe dieser Zelle ändern. 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 Range)
   With Range("B1")
      If .Value = True Then
         .Interior.ColorIndex = 34
      Else
         .Interior.ColorIndex = 36
      End If
   End With
End Sub