Butterfly Forsker
15. april 2019 - 18:04 Der er 3 kommentarer og
1 løsning

Tæl farvede celler i pivottabel

Hej
Jeg har en pivottabel, hvor jeg har farvelagt cellerne efter tal størrelse. Det er gjort med betinget formatering.
Hvordan kan jeg tælle disse farver?
Det virker fint, hvis det ikke er i en pivottabel.
Mine kode ser sådan ud:
Function ColorCount(rRange As Range, rColor As Range) As Double
Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorCount = dCount
End Function

Og min formel ser sådan ud
=+ColorCount(Tabel;M1)
Butterfly Forsker
15. april 2019 - 18:27 #1
Jeg har løst det ved at lave en tæl.hvis med samme betingelse som Betinget formatering.
Butterfly Forsker
16. april 2019 - 09:30 #2
Hvorfor kan jeg ikke bruge en tæl.hvis i en pivottabel, hvis udsagnet er fra en celle?
Min formel ser sådan ud
=+TÆL.HVIS(C8:AA8;"<A8") og virker ikke.
Hvis jeg skriver
=+TÆL.HVIS(C8:AA8;<7), så tæller den godt nok i pivottabellen.
Hvad er det jeg mangler eller har forkert?
Dan Elgaard Ekspert
16. april 2019 - 09:35 #3
Prøv med:

=TÆL.HVIS(C8:AA8;"<"&A8)

PS: Jeg tror, at din VBA kode fejler, fordi du har brugt .ColorIndex
Farven er meget præcist i de nye udgaver af Excel, og du skal derfor benytte .Color
Butterfly Forsker
16. april 2019 - 10:29 #4
Mange tak for hjælpen, jeg kan få det til at virke med
=TÆL.HVIS(C8:AA8;"<"&A8)

Jeg kan ikke få det til at virke med Color, men bare det andet virker så rækker det :-)
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Region Nordjylland vælger Systematic som leverandør af stort EPJ-system: Danmarks EPJ-landskab nu reelt delt i to
Region Nordjylland vælger Systematic som leverandør af regionens kommende EPJ-løsning. Med beslutningen er Danmark nu reelt delt op i to på EPJ-området. “Det giver god mening,” siger regionsrådsformand. Se her, hvor mange brugere Systematic-systemet Columna nu står til at få i Danmark.
Computerworld
Google tvinger stort skifte igennem: Alle Android-telefoner skal kunne bruge sms’ens afløser
Google vil ikke vente på teleoperatørerne længere. Nu slipper selskabets RCS-teknologien løs på Android-platformen.
Job & Karriere
På jagt efter et nyt ingeniør-job? Her er otte attraktive stillinger, der er ledige netop nu
Find dit nye ingeniørjob her. Lige nu er der ledige stillinger hos blandt andet E-boks, Milestone Systems og Georg Jensen.
White paper
Hvad gør du? Printsikkerhed er en trussel for din virksomhed!
Du tænker nok: Er printere virkelig så stort en sikkerhedstrussel? På mange måder ja, for i en tid med konstante angreb, er en printer et nemt og ofte overset mål. Blandt andet viser undersøgelsen i dette whitepaper, at der er 68% større sandsynlighed for at printere er kilden til en ekstern trussel eller brist, end der var i 2016, og hele 118% større sandsynlighed for sker internt. Med dette in mente er det overraskende, at kun 30% af de adspurgte it-professionelle anerkender at printere udgør en sikkerhedsrisiko. Læs dette whitepaper og bliv klar over hvad det er du skal være opmærksom på.