voorwaardelijke opmaak

[kibus]

Beste kenners,

is het mogelijk om via voorwaardelijke opmaak de opgelichte cellen gelijk te vullen met een getal?
bijvoorbeeld 5


alvast bedankt voor jullie input

Kibus

 

[AlexCEL]

De naam zegt het al: voorwaardelijk opmaak (VO) en niet vulling. Voor vulling gebruik je formules, bijv. voor F6

=ALS(C6=1;5;"")

Dan pas je VO (rode opmaak) toe met als regel voor F6

=F6=5

 

[kibus]

Dank voor je reactie

Deze functie kwam ik ook tegen, toch apart dat de gekleurde cellen die worden opgelicht via de voorwaardelijke opmaak niet worden opgeteld (cel b2)


Function SOMZELFDEKLEUR(Gebied As Range, Cel As Range) As Double
Dim Kleur As Integer
Application.Volatile
Kleur = Cel.Interior.ColorIndex
For Each Cel In Gebied.Cells
If Cel.Interior.ColorIndex = Kleur And IsNumeric(Cel.Value) Then
SOMZELFDEKLEUR = SOMZELFDEKLEUR + Cel.Value
End If
Next Cel
End Function

Gr Kibus

 

[AlexCEL]

Je draait de boel weer om: je geeft met een voorwaardelijk opmaakformule de cel een kleur op basis van inhoud, en probeert vervolgens de voorwaardelijk opmaak te gebruiken om een totaal te krijgen van die inhoud. De VBA functie werkt dus niet omdat de cellen geen opmaak hebben, maar voorwaardelijke opmaak. Het gebruik van VBA is ook overbodig, je kunt gewoon een FORMULE gebruiken:

=SOM.ALS(F6:F13;5)

 

[edmoor]

Daarnaast haal je in VBA de voorwaardelijk opgemaakte kleur niet op met:
Cel.Interior.ColorIndex

Maar met:
Cel.DisplayFormat.Interior.Color

Ook is .ColorIndex iets anders dan .Color