Betinget formattering

Det er muligt, men kræver kodning i VBA

Evt. noget eksempel?

Hvis jeg f.eks i dette område ville skifte bagrundsfarve alt efter værdi.
=C5:J13?

Denne Sub reagerer på indtastning i kolonne D.
Den indtastede celle kan få 10 forskellige farver afhængig af værdien
Sub'en indsættes ved at højreklikke på den aktuelle arkfane og klikke på Vis Koder og indsætte den der.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If IsNumeric(Target.Value) Then
Select Case Target.Value
Case 1: ci = 1
Case 2: ci = 3
Case 3: ci = 5
Case 4: ci = 7
Case 5: ci = 9
Case 6: ci = 11
Case 7: ci = 13
Case 8: ci = 15
Case 9: ci = 17
Case 10: ci = 18
Case Else
End Select
Target.Interior.ColorIndex = ci
End If
End If
End Sub

Bak > det er forrygende, hvis du kan det samme med C5:j13 dobbles points.

Det du har lavet nu er rigtigt godt.

Husk lige et svar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:J13")) Is Nothing Then
  If IsNumeric(Target.Value) Then
    Select Case Target.Value
      Case 1: ci = 1
      Case 2: ci = 3
      Case 3: ci = 5
      Case 4: ci = 7
      Case 5: ci = 9
      Case 6: ci = 11
      Case 7: ci = 13
      Case 8: ci = 15
      Case 9: ci = 17
      Case 10: ci = 18
      Case Else
    End Select
  Target.Interior.ColorIndex = ci
End If
End If
End Sub

Hvordan er det lige jeg lægger flere points til, end de 30 jeg valgte fra starten?