Bedingte Formatierung über VBA (Bedingung Farbe)
23.02.2019 21:00:26
Phillip
bisher habe ich hier eher passiv rumgestöbert, nun meine erste Frage da ich keine Lösung finde:
Ein Export soll automatisch aufbereitet und gedruckt werden.
Bisher bin ich so weit das die Informationen korrekt in die unterschiedliche Tabellenblätter kopiert werden und Zellen nach der Bedingung des Inhalts der Zelle umformatiert werden.
Ich möchte jedoch nicht nur Zellen formatieren mit der Bedingung welchen Textinhalt sie haben sondern auch mit der Bedingung welche Farbe die Zelle bzw. der Hintergrund hat.
Das ist mein Code für die Bedingung mit dem Text, wie würde das mit der Bedingung einer Farbe aussehen?:
'Tabellenblatt 1 aktivieren und Beispieltext färben - dunkelrot
ThisWorkbook.Worksheets("1").Activate
Range("A1:AZ100").Select
Range("F4").Activate
Selection.FormatConditions.Add Type:=xlTextString, String:="Beispieltext", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 3342489
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Vielen Dank im Voraus :-)