Lade værdien i cellem bestemme skrift og bagrundsfarve ?

Skal gøre det med ca 50 farver - Så betinget formatering er lidt tricky ?

En hurtig. Du kommer nok til at kode én gang for hver farve. Men ved at tilrette celleområdet og "select case"-udtrykket, kan du måske bruge denne:

Sub Check_Range_Value()
Dim rnArea As Range
Dim rnCell As Range

Set rnArea = Range("A1:B11")

  For Each rnCell In rnArea
    With rnCell
        If Not IsError(.Value) Then
      Select Case .Value
          Case "R"
            .Interior.ColorIndex = 45
          Case "Y"
            .Interior.ColorIndex = 20
      End Select
      End If
  End With
Next

End Sub

Hmm -- Det er tricky VB for mig.

Min ide er at jeg i et felt skriver et tal.
Dette tal laver jeg et Lopslag på og returnere værdien (En farve).
1=sort
2=grøn
3= osv, osv.

Så skriver jeg 1 bliver retur feltet sort..

Eksempel for feltet C4 med 5 af grundfarverne. Indsættes som vba kode i det pågældende ark - menuen Funktioner - Makro - Visual Basic Editor (ikke i ThisWorkbook). Her er indekset sat lig tallet, men det er ikke nødvendigt. Med RGB kan du så rigeligt lave 50 forkellige farver:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Dim rnCell As Range

Set rnCell = Range("C4,C4")

ActiveWorkbook.Colors(1) = RGB(255, 0, 0)    'RØD
ActiveWorkbook.Colors(2) = RGB(0, 255, 0)    'BLÅ
ActiveWorkbook.Colors(3) = RGB(0, 0, 255)    'GRØN
ActiveWorkbook.Colors(4) = RGB(0, 0, 0)      'SORT
ActiveWorkbook.Colors(5) = RGB(255, 255, 255) 'HVID
 
    With rnCell
        If Not IsError(.Value) Then
      Select Case .Value
          Case "1"
            .Interior.ColorIndex = 1 'RØD
          Case "2"
            .Interior.ColorIndex = 2 'GRØN
          Case "3"
            .Interior.ColorIndex = 3 'BLÅ
          Case "4"
            .Interior.ColorIndex = 4 'SORT
          Case "5"
            .Interior.ColorIndex = 5 'HVID
      End Select
      End If
  End With

End Sub

http://www.eksperten.dk/spm/822225

Super med så mange forslag - Skal lige ha overblik over hvad der virker bedst...Tak.