Eenvoudige berekening excel die ik niet kan :(

[shwanzman]

Reeks getallen
240
281
329
386
452
530
622
729
854
1002
1174
1376
1613
1891
2216
2598
3045
----------------------------
Reeks getallen waar som van berekent wordt.
21
13
15
0
5
44
0
10
23
38
63
90
0
0
8
0
0
= som(geselecteerd getallen) = 330

330 ligt tussen 329 en 386, al de cellen kleuren rood (inclusief 329). Alleen cel 386 kleurt groen. (de cel waarin het getal groter dan 330 in staat, maar niet alle getallen die groter zijn dan 330)

-->
240
281
329
386
452
530
622
729
854
1002
1174
1376
1613
1891
2216
2598
3045

 

[jolivanes]

Als de "Reeks getallen" in A2 begint en
de "Reeks getallen waar som van berekent wordt." in C2 begint
dan zou deze code het moeten doen.

Sub TryThis()
    a = WorksheetFunction.Sum(Range("C2", Range("C" & Rows.Count).End(xlUp)))
    For Each c In Range("A2", Range("A" & Rows.Count).End(xlUp))
        If c.Value >= a Then
            c.Font.ColorIndex = 4
        Else
            c.Font.ColorIndex = 3
        End If
    Next c
End Sub

HTH

Han

 

[shwanzman]

Is dat een code voor in excel..?! oei oei
Ik zal het is proberen uit te pluizen, maar ik vrees er beetje voor.

Kan je iets gedetailleerder uitleg geven ?

 

[Stuiver22]

Wellicht iets om te werken met 'voorwaardelijke opmaak'? Ga naar opmaak > voorwaardelijke opmaak

 

[shwanzman]

Schitterend !
Voorwaardelijke opmaak dus

Ik heb wat geprutst en gesukkeld, maar heb nu toch een simplistische uitvoering van wat ik op het oog had.

Bedankt ppl !