bedingt formatieren mit Platzhalter
20.12.2003 11:56:03
VolkerM
Ich formatiere mit folgendem Code Texteinträge. Für vollständige Wörter klappt es auch ohne Probleme.
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "Urlaub"
Target.Font.Bold = True
Target.Font.ColorIndex = 3
Target.Interior.ColorIndex = 6
Case Else
Target.Font.Bold = True
Target.Font.ColorIndex = xlColorIndexAutomatic
Target.Interior.ColorIndex = xlColorIndexAutomatic
End Select
End Sub
Nunmehr möchte ich Kombinationen mit den Großbuchstaben DA ebenfalls formatieren, wobei vor und nach den beiden Buchstaben sowohl andere Buchstaben als auch Ziffern vorkommen können. Meine bescheidenen Versuche mit * schlugen fehl.
Case "*DA*" ???
Target.Font.Bold = True
Target.Font.ColorIndex = 2
Target.Interior.ColorIndex = 3
Hat jemand einen Lösungsansatz.
Dank im voraus
Gruß Volker
Anzeige