Schönen guten Tag,
möchte gerne 2 bestimmte Wörter per VBA suchen und diese dann als bedingte Foratierung mackieren.
Ich bekomme das leider nur mit einem Wort hin.
Vielleicht kann man mir da jemand freundlicherweise behilflich sein.
Die Wörter sind defekt und gesperrt.
Untereinander könnte ich das, aber der Code kommt in mehere Zellen rein, daher versuche ich das auf eine Zeile zu halten.
Range("F31:I31").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$H$31=""defekt"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.Pattern = xlGray50
.PatternColor = 96
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0.349986266670736
.PatternTintAndShade = 0
End With
Vielen Dank