Formules op basis van opmaak

[Robbie1980]

Hallo,

Ik wil graag formules op basis van opmaak gebruiken.
2 voorbeelden hiervan zijn:

B1= als(a1="geel";1;0) is hier een formule voor?

Daarnaast wil A1= Aantal(A:A;"gele cellen") idem.


Gr
Rob

 

[Roncancio]

Er zijn geen formules voor maar je kunt de formules wel zelf maken.

Function KleurenTellen(rBereik As Range, rColor As Range) As Long
Dim rRange As Range
Dim Teller As Long
    lColor = rColor.Interior.ColorIndex
    For Each rRange In rBereik
        If rRange.Interior.ColorIndex = lColor Then
            Teller = Teller + 1
        End If
    Next
KleurenTellen = Teller
End Function

De functie is KleurenTellen(Bereik, kleur)
Bijv.: KleurenTellen(A1:A20,A5)
De functie berekent van het bereik A1 t/m A20 hoeveel er hetzelfde achtergrond hebben als cel A5.

Ter aanvulling een voorbeeldbestand.

Met vriendelijke groet,


Roncancio

 

[Robbie1980]

Het bestand werk inderdaad.
Maar niet als ik laat bijwerken.

en de formule: <B1= als(a1="geel";1;0)> zit er niet in.
heb je daar nog ideeen voor?

gr
Rob

 

[Wigi]

en de formule: <B1= als(a1="geel";1;0)> zit er niet in.

Heb je gedaan wat Roncancio schreef (hierboven)?

En een kleurtje toepassen zal niet onmiddellijk het resultaat laten herberekenen. Dit is bvb. wel zo als je een cel met de juiste kleur kopieert.

 

[Robbie1980]

hey Wigi,

inderdaad gedaan.
In eerste instantie doet hij het tot ik op de cel ga staan en F2 en Enter druk.
Weet je hoe ik dat kan voorkomen?

Okey maar qua opmaak vergelijken kan dus wel?
Ik kan wel cel a1 geel maken en dan de formule:
b2=als(opmaak(b1)=opmaak(a1);1;0)

Gr
Rob

 

[Wigi]

In eerste instantie doet hij het tot ik op de cel ga staan en F2 en Enter druk.
Weet je hoe ik dat kan voorkomen?

Dat kan je niet vermijden. Je moet op 1 of andere manier het blad herberekenen, ofwel F9, ofwel cellen editeren, ...

Okey maar qua opmaak vergelijken kan dus wel?
Ik kan wel cel a1 geel maken en dan de formule:
b2=als(opmaak(b1)=opmaak(a1);1;0)

Ook hiervoor zal je moeten programmeren zoals Roncancio al voordeed.