Hilfe bei Left-Funktion in einer Case-Abfrage
20.05.2005 12:47:11
Stefan
könnt Ihr mir bitte nochtmal helfen.
Ich habe einen Belegungsplan für Dienstwagen. Bestimmte Einträge wie Werkstatt oder Inspektion sollen farblich dargestellt werden. Funktioniert auch alles.
Nur wenn z.b. zu dem Eintrag Werkstatt etwas dazuschreiben möchte funktioniert es nicht mehr.
Die Abfrage müßte also so lauten, wenn die ersten 5 Buchstaben des Eintrages mit dem Case-Wert übereinstimmen, dann Eintrag farblich markieren.
Diesen Code habe ich jetzt:
...
Select Case Target.Value
Case "Werkstatt", "Reinigung", "Wäsche", "Inspektion"
Target.Value = Target.Value & " !"
Target.Interior.ColorIndex = 3
Target.Cells.Font.Bold = True
Target.Cells.Font.Italic = True
Target.Cells.Font.Size = 11
Target.Cells.Font.ColorIndex = 2
Target.Rows.AutoFit
...
Danke und ein schönes Wochenende
Stefan