Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Wörter suchen VBA


Betrifft: mehrere Wörter suchen VBA von: Holger
Geschrieben am: 01.10.2019 13:37:40

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

  

Betrifft: AW: mehrere Wörter suchen VBA von: Pierre
Geschrieben am: 01.10.2019 14:56:39

Hallo,

ich bin mir nicht sicher, ob ich dich richtig verstehe?

Ich würde das mit Select Case lösen.

Etwa so:

Select Case Target.Value
    Case "defekt"
      Target.Interior.ColorIndex = 48
    Case "gesperrt"
      Target.Interior.ColorIndex = 48
    Case Else
      Target.Interior.ColorIndex = 0
  End Select
So wird die Zelle, in der gesperrt oder defekt steht, grau gefärbt.

Gruß Pierre


  

Betrifft: AW: mehrere Wörter suchen VBA von: onur
Geschrieben am: 01.10.2019 17:33:09

Und wieso unbedingt mit VBA?


  

Betrifft: AW: mehrere Wörter suchen VBA von: Holger
Geschrieben am: 02.10.2019 00:29:52

das ist nicht leider, das was ich genau suche.
Aber ich danke dir für deine Hilfe.
Werde es noch mal die Tage versuchen.

Muss VBA sein, da in den Feldern kopie and past gibt.

Lg
Holger


Beiträge aus dem Excel-Forum zum Thema "mehrere Wörter suchen VBA"