Korrekte erkennung eines Textes
25.07.2013 16:03:50
Werner
ich stehe gerade vor einem Problem.
Folgendes VBA habe ich im Netz gefunden. Diese VBA hilft mir bereit dabei ein bestimmten Text zu erkennen und dessen Hintergrund anschließend in eine bestimmte Farbe automatisch abzuändern.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "Trains are better"
Target.Interior.ColorIndex = 5
Case "Cars are nice"
Target.Interior.ColorIndex = 3
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Mein Problem ist nun folgendes:
Ich möchte, dass der Text "Cars are nice" erkannt wird, auch wenn noch zusätzlich etwas anderes in der Zelle steht, wie z.B. "Cars are nice like Porsche". Dabei ist zu diesem Zeitpunkt noch nicht bekannt, was als Nachtext dort stehen wird.
Zur Veranschaulichung schreibe ich mal die VBA, so wie ich es mir vorstelle:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "Trains are better (TEXT)"
Target.Interior.ColorIndex = 5
Case "Cars are nice (TEXT)"
Target.Interior.ColorIndex = 3
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Wobei unter (TEXT) etwas beliebiges reingeschrieben werden darf.
Ich hoffe ihr versteht mein Problem und könnt mir dabei weiterhelfen.