Gruppe
Feature
Bereich
Bedingt
Thema
Farbanpassung nach Eingabewert
Problem
Wie kann ich in Abhängigkeit von Eintragungen in Spalte A in Spalte B die Schriftfarbe verändern?
Lösung
Formel für die bedingte Formatierung: =A1="Lieferant A"
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