IMHO kan dit enkel via VBA.

Gebruik iets in de stijl van selection change, waarbij je als selectie de cellen neemt waarvan je de kleur wilt wijzigen. Vervolgens neem je in de code op dat je door de cellen gaat, en voor elke cel nagaat welke waarde ze heeft. Gebruik hierbij dan best een Select case, en de code voor celopmaak is dan zoiets in de stijl van:
With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid

 * "  For Each c In Range("a:a")  "

Dit lijkt mij onnodig en tijdrovend. Oplossing: Bereken met een formule het aantal cellen dat getallen bevat (in bv. kolom A), en doe dan een loop van 1 tot als dat aantal bereikt is. Je loopt dus door de cellen van kolom A, en dan kan je nog schrijven dat wanneer een cel leeg is, je naar de volgende cel gaat (xlDown).

 * In plaats van de if-structuren, neem een case-structuur. Veel handiger:

Select case c.value
case = 1
c.Interior.ColorIndex = 14

case = 2
c.Interior.ColorIndex = 6

case = 3
c.Interior.ColorIndex = 4

...

' eventueel een Case else nemen voor alle overige waarden (let op: waarde 0 is er dan ook bij.)
End select


Greetz,

WG

 * If c = 1 Then ...    If c = 1 Then ...   If c = 1 Then ...

Neem c.value in plaats van c, al komt het hier op hetzelfde neer.

Sorry Derks, vanavond post ik hierover wat uitvoeriger met de nodige tussenstappen...

Hallo,

De voorwaardlijke opmaak kan je niet in Excel zelf uitbreiden buiten die 3 opmaken.  Echter zoals je in de andere antwoorden reeds gezien hebt is er ook nog VBA.  Dit is een programma waarin je code kunt schrijven die standaard in Excel zit, pas volgende werkwijze toe :

Start Excel op en open het gewenste bestandje waarin je wilt werken (neemt voor alle veiligheid eerst een kopie van het origineel).

Druk Alt+F11, hierdoor start je de VBA-editor op.

Druk nu Ctrl+R, hiermee toon je de projectverkenner.  Hierin zal je nu alle werkbladen zien.

Dubbelklik op het gewenste werkblad en er verschijnt een nieuw venster waarin je programmacode kunt invullen. Bovenaan dit nieuwe venster zie je twee keuzelijsten. links kies je "Worksheet", daarna rechts de optie "Change".

Nu verschijnt het volgende :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

End Sub

Plaats de cursor op de lege rij en kopiėėr volgende code op die plaats :

Dim x As Range
    For Each x In ActiveSheet.UsedRange
        With x
        Select Case .Value
          Case Is = "1"
              .Interior.Color = RGB(255, 0, 0)
          Case Is = "2"
              .Interior.Color = RGB(255, 240, 10)
          Case Is = "3"
              .Interior.Color = RGB(0, 255, 0)
          Case Is = "4"
              .Interior.Color = RGB(0, 0, 255)
        End Select
    End With
   Next



Voor meerder kleuren voeg je telkens 2 lijnen toe :
   Case Is = "viel hier nummer of tekst in"
         .Interior.Color = RGB(x,x,x)

de x-waarden van RGB( , , ) zijn de waarde voor je kleuren rood, groen en blauw.  Indien je niet weet welke kleur welke waarde heeft kan je dit vlug opzoeken :
Ga naar excel/Extra/Opties/Kleuren, Kies Wijzigen en Aangepast.  Bepaal hier het kleur dat je precies wenst (eerst op het grote vlak en dan met het rechter balkje) en kijk bij "rood", "groen" en "blauw" naar de waarden en vul deze in de code in op de x-plaatsen RGB(x,x,x)

Op de wijze worden de kleuren ook toegepast indien je met formules werkt zodat het resultaat bekeken wordt en niet de formule.

Het gebruik van Color in plaats van ColorIndex heeft voor mij de voorkeur, want met Color bepaal je de preciese kleur en bij ColorIndex is de kleur afhankelijk van hoe de kleuren zijn ingesteld in Excel.

Groetjes

PS: indien niet duidelijk moet je maar iets laten weten

Derks,

De code die eerder voorgesteld werd, wordt uitgevoerd bij elke wijziging ergens in je werkblad. Als je dit wil beperken tot a4:e878 doe je:

Dim x As Range
    For Each x In ActiveSheet.Range("A4:E878")
        With x
        ...
        End Select
    End With
  Next

Waarde wissen en blanco cel:
Dit is eigenlijk hetzelfde verhaal, maar dan met een extra case, nl. Case Else. Dit zijn alle andere mogelijke waarden voor de cellen, waaronder de lege cel. De opmaak die je hieraan toewijst is 'geen opmaak'.

Dus, alles bij mekaar:

Dim x As Range
    For Each x In ActiveSheet.Range("A4:E878")
        With x
        Select Case .Value
          Case Is = "1"
              .Interior.Color = RGB(255, 0, 0)
          Case Is = "2"
              .Interior.Color = RGB(255, 240, 10)
          Case Is = "3"
              .Interior.Color = RGB(0, 255, 0)
          Case Is = "4"
              .Interior.Color = RGB(0, 0, 255)
          Case Else
              .Interior.ColorIndex = xlNone
        End Select
    End With
  Next

Voilą

WG

 - Ctrl Z marcheert niet? Excel afsluiten en terug opstarten?

 - addendum bij mijn laatste post:

Het programma (met name cellen nagaan en een kleurtje al dan niet toewijzen) wordt uitgevoerd bij elke wijziging, ongeacht waar, op je werkblad. Dit lijkt mij niet zo verstandig als je weet dat de wijzigingen die geėvalueerd moeten worden toch maar voorkomen in A4:E878. Deze range beperken is niet moeilijk:

Als eerste regel onder de private sub ...

If Not Application.Intersect(Range("A4:E878"), Target) Is Nothing Then


En als laatste regels voeg je toe:

Else
End if




WG