Bedingte Formatierung ein- und ausschalten

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,
ich würde gerne meiner Tabelle eine bedingte Formatierung hinzufügen, die ich per Makro ein- bzw. ausschalten kann (für manche Anwendungen ist es übersichtlicher wenn die Formatierung aus ist).
Und zwar hätte ich gerne jede Zelle eines Tabellenblattes die ein „A“ enthält gelb, und alle Zellen die ein „B“ enthalten grün hinterlegt.
Die Formatierung über VBA auszuschalten hab ich schon hinbekommen.
Vielen dank schonmal,
Gruß,
Martin

#2

ich würde gerne meiner Tabelle eine bedingte Formatierung
hinzufügen, die ich per Makro ein- bzw. ausschalten kann (für
manche Anwendungen ist es übersichtlicher wenn die
Formatierung aus ist).
Und zwar hätte ich gerne jede Zelle eines Tabellenblattes die
ein „A“ enthält gelb, und alle Zellen die ein „B“ enthalten
grün hinterlegt.

Hallo Martin,

die Farbnummern mußte kontrollieren.

Option Explicit

Sub Ein()
With Worksheets("Tabelle1").UsedRange
 .FormatConditions.Delete
 .FormatConditions.Add Type:=xlExpression, Formula1:= \_
 "=LÄNGE(WECHSELN(A1;""A"";""""))LÄNGE(A1)"
 .FormatConditions(1).Interior.ColorIndex = 27
 .FormatConditions.Add Type:=xlExpression, Formula1:= \_
 "=LÄNGE(WECHSELN(A1;""B"";""""))LÄNGE(A1)"
 .FormatConditions(2).Interior.ColorIndex = 56
End With
End Sub

Sub Aus()
Worksheets("Tabelle1").UsedRange.FormatConditions.Delete
End Sub

Gruß
Reinhard