Formel til farveskift

Kan du ikke bruge betinget formatering, hvor du kan indsætte op til 3 betingelser med både numeriske og alfanumeriske værdier?

Måske dette.
Taget fra kabbaks autokalender


Application.ScreenUpdating = False
    For Each c In ActiveSheet.Range("DitArray").Cells
'********************************************************
'      Sletter farven i "DitArray"
'********************************************************
        c.Interior.ColorIndex = xlNone
            c.Offset(0, 0).Interior.ColorIndex = xlNone
            c.Offset(0, 0).Interior.ColorIndex = xlNone
'********************************************************
'      Sætter farven i "DitArray" til lysegrå hvis
'      "DinVærdi" er sand
'********************************************************
        If c.Value = "DinVærdi" Then
            c.Interior.ColorIndex = 15
            c.Offset(0, 0).Interior.ColorIndex = 15
        End If

Mugs >> Det må du lige forklare lidt nærmere, tak.

perhol >> Kan du give lidt hjælp til hvordan dette "installeres"?

Menuen: Formater > Betinget formatering. Der ligger en diaslogboks der er lige til at gå til.

mugs >> Og i Office2007, hvor menuen formater ikke findes??

Mugs >> Har fundet det, beklager min hurtige afvisning. Smid venligst et svar :-)

I venstre side ser du en smal rude med teksten 'Project' øverst.
I højre side måske ingen ting.
Marker den mappe du har åbnet (f.eks. VBAProjekt (Mappe1)) nedenunder den blå linie med teksten 'Project...' i venstre side.
Åben menuen Insert og klik på Module (ikke Class Module)
Opret en Makro ved at indsætte den rettede kode i ruden til højre.
Fik lige testet koden og indsætter den her med rettelser.
Linierne med '*' er forklaringer til linierne nedenunder.

Sub FarveSkift()
Application.ScreenUpdating = False
'**********************************************************************
'*  Bestemmer at det er området "Test" der testes for værdien af 'c' *
'**********************************************************************
    For Each c In ActiveSheet.Range("Test").Cells
'***********************************************
'*      Sletter farven i "Test" Array          *
'***********************************************
        c.Interior.ColorIndex = xlNone
            c.Offset(0, 0).Interior.ColorIndex = xlNone
            c.Offset(0, 0).Interior.ColorIndex = xlNone
'********************************************************
'*    Sætter farven i "Test" Array til lysegrå hvis    *
'*      "DinVærdi" er større end eller lig med 3        *
'********************************************************
        If c.Value >= "3" Then
            c.Interior.ColorIndex = 15
            c.Offset(0, 0).Interior.ColorIndex = 15
        End If
    Next
End Sub

Ups, der mangler en linie. Første linie i ovenstående skulle være:
Åben VBA editoren ved at trykke på [Alt]+[F11].

Du aktiverer makroen ved at gå i menuen [Funktioner] → [Makro] → [Makroer] (eller ved at trykke på [Alt] + [F8], markere makroen 'FarveSkift' og trykke på knappen [Afspil]

De underlige tegn i forklaringen til hvordan du aktiverer makroen (&#8594) skulle have været pil til højre ;-)

:o)