betinget formatering med 5 betingelser

Dette skulle kunne gøre det.
Indsæt det i arkets kodemodul. (højreklik på arkfanen > Vis programkode)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B1:B10"), Target) Is Nothing Then
With Target
    Select Case Target.Value
        Case 0
        .Interior.ColorIndex = 0
        Case 1
        .Interior.ColorIndex = 1
        Case 2
        .Interior.ColorIndex = 2
        Case 3
        .Interior.ColorIndex = 3
        Case 4
        .Interior.ColorIndex = 4
        Case 5
        .Interior.ColorIndex = 5
Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub

Farvekoderne spænder fra 0 til 56.

Lidt farvetips.

1 er sort
2 er hvid
3 er rød
4 er grøn
5 er blå
6 er gul
7 er pink
45 er lysorange
17 er pastelblå
21 er aubergine osv.

Koden kom til at se sådan ud, men hvad nu hvis jeg gerne vil køre denne function på allerede indtastet data, og gerne på flere kolonner.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("I6:I49"), Target) Is Nothing Then
With Target
    Select Case Target.Value
        Case 0 To 2.79
        .Interior.ColorIndex = 6
        Case 2.8 To 3.1
        .Interior.ColorIndex = 4
        Case 3.1 To 3.4
        .Interior.ColorIndex = 2
        Case 3.4 To 3.8
        .Interior.ColorIndex = 5
        Case 3.8 To 10#
        .Interior.ColorIndex = 3
Case Else
        .Interior.ColorIndex = xlNone
    End Select
End With
End If
End Sub

Her er et sikkert meget simpelt spørgsmål...Skal koden bare indsættes, således der startes med Private Sub Worksheet_Change .....osv? Jeg spørger idet jeg får en fejl i den første linie når jeg indsætter eksemplet i min vba editor.

Hvordan får man koden til automatisk at farvelægge når der er tastet en given værdi, og ikke først afvikle denne kode ved at aktivere den?

Koden skal ligge i det pågældende arks kodemodul. Højreklik på Arkfanen og vælg Vis programkode.

--> Jkrons tak for dit svar, Men ved bare at indsætte koden får jeg ikke lov at afvikle den, skal den ikke starte med Sub NAVN(), da dit kode eksempel slutter med End sub????

Ovennævnte kode fungere, når der bliver indtastet i en celle i nævnte range.
jeg kender desværre ikke meget mere til excel og vba

TAk, det virker...Jeg er ny her hvordan gives der Point?

Jeg har givet point til rosco som kom med løsningen.
Du skal selv oprette et spørgsmål for at kunne give point.
Jeg bruger selv dette forum en hel del, og har fået sindsygt meget god hjælp herinde, jeg synes det er utroligt at der sidder så kloge folk der gider bruge lidt på at hjælpe andre.