Hvordan udelades nogle celler i optælling?

Du kan bruge den funktion som er lavet af Bak og er vist modificeret af janvogt
i svaret her.
du kan se den her
http://www.eksperten.dk/spm/352378

Nå ikke helt det du skal bruge, men jeg har modificeret ovenstående til dette.

Function WordAndColorCount(rRange As Range, rColor As Range, Ord As String) As Variant
Dim rCell As Range
Dim dCount As Double
C = rColor.Interior.ColorIndex
dCount = 0
    Application.Volatile
    For Each rCell In rRange
    If rCell = Ord And rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + 1
        End If
    Next rCell
    WordAndColorCount = Ord & " = " & dCount & " stk."
 
End Function

Hmm... det ser jo lækkert og nemt ud!! ;-)

Hvor skriver jeg denne lille formel/funktion ind henne?

/magger

Du sætter det ind i et modul I det aktive regneark og kalder det ved at Klikke ind på en tom celle, tryk på funktioner/brugerdefinerede der kan du se den.

RRange = det område der skal søges igennem
RColor = klik på en celle med den farve cellen skal have
Ord = klik på en af de celler der indeholder det der skal søges efter.

NB. den kikker kun på hele indholdet ikke en del af det og kun på den baggrundsfarve du har valgt.

OK, det prøvede jeg og det virker egentlig helt fino - bortset fra, at det ikke helt er den funktion, jeg er ude efter.
Måske skal jeg forklare lidt bedre: I kolonne A har jeg en masse forskellige ord, mens jeg i kolonne D gerne vil have vist, hvor mange gange hvert ord optræder i kolonne A. Altså fx står der "biler" både i A1 og A23. I D1 og D23 vil jeg så gerne have vist tallet "2". Samtidig er der nogle af rækkerne, der ikke skal tælles med, fx alle de rækker der er blå eller markeret på en eller anden måde. Det vil sige, at hvis der også står "biler" i A42, skal tallet i D1, D23 og D42 stadig kun være "2" (og ikke 3, fordi celle A42 ikke tælles med)
Giver det mening?
/magger

Sæt dette ind i celle D1

=WordAndColorCount(A:A;A1;A1)
Tag fat i den og træk den nedad intil enden af dataerne, men ikke længere for så tæller den tomme også

Nej at vælge hele kolonnen var nok for meget det gør den langsom.

skriv istedet =WordAndColorCount($A$1:$A$45;A1;A1)
og ret så $A$45 til den sidste celle der skal søges på

Husk $ tegnene det låser området når du trækker nedad.

Joh meeen... det er selve funktionen der er gal. I ovennævnte funktion skal jeg angive det ord, der skal tælles - det er jeg ikke interesseret i, da jeg har ca. 400 ord, der alle skal tælles, og der kommer hele tiden flere. Funktionen =COUNTIF(A:A;A1) virker til dels, men den udelader jo ikke de markerede rækker. Er der ikke en nem måde at udvide denne funktion på, så den ikke tæller de rækker med, der er markeret på en eller anden måde, fx med blå farve eller på en anden måde??
/magger

Det gør den også, men kun på baggrundsfarven ikke skriftfarven.
Du skal jo ikke skrive ordet den kikker jo på cellen i A kolonnen i den række funktionen står i.

WordAndColorCount($A$1:$A$45;A1;A1)

hvis denne trækkes nedad fra D1 til D45 vil den skrive ud for hver enkelt celle hvor mange gange  det findes fra A1 til A45.

OK, så tror jeg den er på plads... en mindre ting, jeg kunne tænke mig at få rettet er, at den gør forskel på store og små bogstaver - altså "Biler" og "biler" er to forskellige ting. Kan det ændres??
/magger

Det er vist nemmere at rette eller søg/erstat det så det bliver ens.

ARGH, det virkede fint da jeg prøvede det i et test-ark, men nu kan jeg ikke få lov at indsætte en brugerdefineret funktion... hjælphjælp! Jeg har smidt funktionen ind i et modul (ved hjælp af alt+F11) og gemt det. Stiller mig i en tom celle, klikker på menuen Insert og herunder på Function og leder efter "user defined", men kan ikke finde den. Hvad gør jeg galt??
/magger

den ligger i testarket

Nej det er knappen ved siden af autosum du skal bruge

ØH,prøv lige at tage den forfra?? Knappen ved side af autosum?? :-)

Jeg sludrer.

prøv at trykke Alt+F11 igen, for at se om funktionen ligger i det modul.

jep, det gør den. Til venstre i modulvinduet (hvor jeg indsætter funktionen) under Project - VBAProject er "Sheet 3 (sheet 3)" markeret. Er det korrekt, at den skal være markeret?

Hvis det ligger der, er det så ikke fordi du ikke ruller ned i funktionerne til "user defined",

hvor gør jeg det? Når jeg står i mit regneark, klikker på menuen Insert og derefter på Function, kan jeg ingen steder vælge user defined...

Et modul ligger ikke i et sheet, men er selvstændig
tryk på insert og vælg module, i det der kommer frem skal den ligge i.

Under Insert kan jeg kun vælge Cell, Rows, Columns, Worksheet, Chart, Symbol, Page break, Function, Name, Comment, Picture, Diagram, Object og Hyperlink - ikke noget med modul...

OK, nu vrøvler jeg... du mente i visual bacis vinduet... det har jeg gjort nu, men får at vide, at "This function takes no arguments"???

har du fået det hele med i kopieringen og har du slettet den der lå under sheet3

OK, nu er det vist ved at være på plads. Jeg bliver spugt om RRange (det område, der skal tælles igennem - det er kolonne A), er det rigtigt at skrive A:A her?

Det kan du godt, men ikke tilrådelig, da det tager tid at tjekke godt 6500 rækker. kan du ikke nøjes med mindre.

et eksempel

WordAndColorCount($A$1:$A$500;A1;A1)

Jeg er nødt til at smutte nu, er tilbage i morgen.

kabbak

jojo, jeg kan sagtens nøjes med mindre... jeg mente nu også i den lille boks, der popper op, som jeg skal udfylde med RRAnge, RColor og Ord... hvordan siger jeg der at den kun skal tælle de første 1000 rækker?

Nu virker det endelig - du får dine point og lidt til ;-)

Tak for hjælpen - håber ikke du har mistet alt håret efter mine dumme spørgsmål! :-)
/magger

Btw, funktionen opdateres ikke automatisk. Når jeg farver et ord i kolonne A med den farve, der indikerer at ordet ikke skal tælles med, opdateres tallet i kolonne D ikke. Er det muligt at få funktionen til at opdatere automatisk, ligesom med =COUNTIF(A:A;A1)
/magger

Magger-> det er ikke muligt, da en farvelægning af en celle ikke tvinger excel til at genberegne arket.
Prøv istedet at trykke F9, det giver en genberegning.