Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Left-Funktion in einer Case-Abfrage

Hilfe bei Left-Funktion in einer Case-Abfrage
20.05.2005 12:47:11
Stefan
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Select Case Left(Target.Value, 5)
20.05.2005 15:04:42
ransi


      
hallo stefan
versuch mal:
(ungetestet)
Select Case Left(Target.Value, 5)
Case "Werks""Reini""Wäsch""Inspe"
    
With Target
        .Value = .Value & 
" !"
        .Interior.ColorIndex = 3
        .Cells.Font.Bold = 
True
        .Cells.Font.Italic = 
True
        .Cells.Font.Size = 11
        .Cells.Font.ColorIndex = 2
        .Rows.AutoFit
    
End With
ransi 
Anzeige
AW: Select Case Left(Target.Value, 5)
21.05.2005 18:47:47
Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige