kleurindex bestaat niet bij voorwaardelijke opmaak

[tartuffe]

Hallo,

ik wil de som maken van cellen die een rode achtergrond hebben gekregen via voorwaardelijke opmaak. Het werkt niet om dat de kleurindex van zo'n opgemaakte cel niet 3 is (rood) maar -4142!. Dit heb ik getest met deze code:

Cells(10, 1) = Worksheets("blad1").Range("c2:c2").Interior.ColorIndex

Als ik C2 manueel een rode opmaak geef, krijg ik dan wel 3.

Enige verklaring daarvoor?
Bedankt.
Tartuffe

 

[danny147]

Beste tartuffe

Dit bekom je als de cel LEEG is, van zodra je de cel een kleur geeft zal het ook het kleurnummer weergeven.
Een lege cel is geen witte kleur !

Andere verklaring heb ik hier niet voor.

Groetjes Danny. :thumb:

 

[WHER]

Je kan zoeken op:

Range("C2").FormatConditions(1).Interior.ColorIndex

maar dat geeft de index van de kleur die ingesteld is, of hij nu toegepast wordt of niet (denk ik..)

 

[HSV]

Zoiets?

Sub tst()
 MsgBox "kleur = " & Sheets(1).Cells(10, 1).FormatConditions(1).Interior.ColorIndex
End Sub

Edit: WHER was ver voor.

maar dat geeft de index van de kleur die ingesteld is, of hij nu toegepast wordt of niet (denk ik..)

Klopt WHER, de eerste voorwaarde kleur wordt genomen.

Edit 2: Als er met Voorwaardelijke opmaak wordt gewerkt, heb je ook een voorwaarde.
Deze kun je natuurlijk gaan tellen.

 

[tartuffe]

Bedankt. Aangezien ik FormatConditions() niet gebruikte gaf excel een lege kleur. Vandaar...
Tartuffe