Mere end 3 betingede formatteringer

Koden må godt indeholde et eksempel, hvor formatteringen skal gælde kolonnerne D til W (hele vejen ned)

Her er et eksempel
Der begrænser sig til at kigge på de første 3 bogstaver, hvilket betyder at den så fanger Ferie london mv. Der er lige den med HD du skal tage stilling til idet der kun er to bogstaver.
Koden indsættes i arkets eget kodemodul (højreklik på arkfanen og vælg "Vis programkode")

Du kan selv bygge vidre og give dem de rigtige farver

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range                                      ' område hvor farvelægningen skal gælde
Dim lColor As Long                                    ' colorindex
Set rng = Range("D2:W1000")                          ' dette område ændres
  If Not Intersect(Target, rng) Is Nothing Then
      Select Case UCase(Left(Target.Value, 3))
        Case "KUR": lColor = 4
        Case "CMA": lColor = 3
        Case "HDY": lColor = 5
        Case "EKS": lColor = 7
        Case "FER": lColor = 9
        Case "FRI": lColor = 11
        'Case "ZXY" : bla. bla.
        Case Else: lColor = 0
      End Select
      Target.Interior.ColorIndex = lColor
  End If
End Sub

Det virker jo fint.... en skam at jeg er afhængig af antal start bogstaver.... Jeg kunne vel lave to sub, så jeg laver én alene for HD eller hvad ??

Sidste spørgsmål, hvordan laver jeg andre farver end de "normale" jeg tænker her på, at man jo har 3 grund farver med hver 255 farver..... Jeg kan nemlig ikke lave pastelgrøn og lignende med de farvekoder du angiver i koden ovenfor ??

Din formel virker faktisk fint selv om man laver en case der hedder "HD", man kan dog ikke sætte noget efter så.... Kan du hjælpe med farvekoderne ??? og smid et svar samtidig ???

Farvekoderne er ikke noget problem alligevel, det er jo pære let :-) Smid et svar og tak for hjælpen.

ok :-)

Det giver mig f.... et problem alligevel mht. lørdag og søndag se nedenfor....

Jeg har følgende rækker i min kalenderplanlægning her:

søndag (bruges til at vise uge nr. fremkommer ved følgende formel ="Uge "&UGE.NR($B837;2) og næste kolonne henter så herfra. Den skal altid være blå, men hvordan gør jeg det, når det er en formel ???
mandag (her skal netop den betingede farveformattering bruges men kun til hverdag)
tirsdag (her skal netop den betingede farveformattering bruges men kun til hverdag)
onsdag (her skal netop den betingede farveformattering bruges men kun til hverdag)
torsdag (her skal netop den betingede farveformattering bruges men kun til hverdag)
fredag (her skal netop den betingede farveformattering bruges men kun til hverdag)
lørdag (bruges som separator, og derfor skal den altid være blå, denne celle er altid tom, men hvordan kan jeg lave betinget formattering på tom ?? Andre celler er jo også tomme inden de bliver udfyldt, men de skal ikke være blå, når de er tomme).

Håber du kan hjælpe, jeg kan evt. sende mit ark, hvis det hjælper, den er godt nok fyldt med makroer.... :-)

send bare
excel snabela tbdl.dk

Det er hermed gjort