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
Dansk iværksætter står bag et af Europas hurtigst voksende it-selskaber: Her er hele historien om hans op- og nedture
Det danske it-selskab Anytech365 leverer så høje vækstrater, at det er kommet med på Financial Times liste over de hurtigst voksende virksomheder i Europa. Her er historien om den danske iværksætter Janus Rægaard Nielsen, der har to konkurser bag sig og leder virksomheden fra Marbella.
CIO
SAP's nye nordiske direktør: "De seneste uger har jeg besøgt en del kunder her i Norden - og alle talte om at vende tilbage til en eller anden form for standard."
Det store ryk til cloud brød med mange års it-konsolidering og skabte komplicerede it-miljøer. Men nu peger kundernes kompas den anden vej, fortæller erfaren SAP-boss efter nordisk rundrejse.
White paper
Markedsanalyse: Sådan forbedrer EDI din samhandel
I en markedsundersøgelse fra august 2018 blev 300 retailers og producenter spurgt til, hvordan EDI og supply chain-teknologi hjælper dem med at forbedre deres samhandel. Det er ikke nogen hemmelighed, at konkurrenceforholdene er blevet skærpet i det seneste årti, og specielt priserne er udsat for øget pres. Dette betyder, at virksomheder hele tiden skal arbejde for at implementere mere effektive handelsprocesser. Heldigvis er der stadig forretningsområder, som er nemme at strømline ved hjælp af intelligente outsourcede løsninger. Ét af disse er den elektroniske udveksling af ordrer og fakturaer (EDI). I dette whitepaper kigger vi nærmere på de fem vigtigste områder, hvor EDI ifølge de 300 respondenter spiller en stor rolle i at forbedre virksomhedernes samhandel.