farve udvalgte celler i excel

Du skal anvende menupunkt Formater, Betinget formattering.

Hvis ugedag-navne f.eks står i række 9, så vælg betinget formmattering i celle a9:

Indsæt betingelse 1: Formlen er  =a$9="lørdag"  (husk at fjerne $ foran kollonne)
    og betingelse 2: Formlen er  =a$9="søndag"
og vælg formmattering, i dette tilfælde farve (faneblad mønster) for hver af de 2 betingelser.

Brug formatteringspensel til at kopiere formatteringen til alle celler

Det virkede sådan set godt nok når jeg gjorde det direkte i excel. Men da jeg optog en makro af det og ville bruge det i vb - ja så kiksede det en smule. Her er koden den lavede:

Application.CutCopyMode = False
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=C$8=""lørdag"""
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.Copy
    Range("D8:AG8").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
   

Jeg valgte kun at få markeret lørdage til at starte med. Problemet er nu at den kun markerer søndage og farver dem røde?? Det er på sin vis meget godt, men jeg tvivler på at den farver lørdage røde når jeg beder den om at farve søndage røde.

marker liste, kør sub (finder lørdag farver denne og før/efter)

Sub Kulør()
For Each c In Selection
If c = "lørdag" Or Format(c, "dddd") = "lørdag" Then
c.Offset(-1, 0).Interior.ColorIndex = 3 ' selle før
c.Interior.ColorIndex = 3 ' selle med lørdag
c.Offset(1, 0).Interior.ColorIndex = 3 ' selle efter
End If
Next
End Sub