TÆL.HVIS og filter.

Prøv at se, om du ikke kan bruge SUBTOTAL() i stedet. Det kan du hvis der er en sammenhæng mellem hvilke celler du viser, og beregningen.

Det kan jeg ikke at subtotal ikke kan tage tæl.hvis som funktion

Hvad mener du?

TÆL.HVIS() skal du slet ikke anvende, hvis der er en sammenhæng mellem fileret, og det du vil tælle sammen.

=SUBTOTAL(9;B1:B100) tæller f.eks. alle synlige celler i område B1:B100.

Hvad så hvis jeg gerne vil tælle hvor mange af de synlige celler der indholder tal fra 0 til 2 og fra 2 til 4 osv...

nåå, jeg lavede lige en function


Public Function Tæl_Hvis_Ikke_Skjult(Område As Range, Kriterie)
    For Each C In Område.Cells
        If Not C.EntireRow.Hidden And C = Kriterie Then
          Tæl_Hvis_Ikke_Skjult = Tæl_Hvis_Ikke_Skjult + 1
        End If
    Next
End Function

kaldes med

=tæl_hvis_ikke_skjult(A1:A4;2)

hvor 2 er det der er kriteriet

øhh hvor bruger jeg lige den kode?

i dit regneark

Tryk ALT + F11

Nu er du i din editor
Vælg Insert Module, oppe på menulinjen

Kopier koden ind på det store hvide vindue

Tryk på disketten, for at gemme koden

tryk så på det øverste X i højre side, det lukker editoren og du er tilbage på arket.

så kadu skrive =tæl_hvis_ikke_skjult(A1:A4;2) i en celle

fedt det prøver jeg lige

Hej
Hvordan er det lige med kriteriumet..

hvis jeg skriver
=Tæl_Hvis_Ikke_Skjult(C1:C30;">="&A1)

Jeg får blot værdi 0

Jeg havde ikke forventet at du ville bruge den sådan.
men hvis du retter
If Not C.EntireRow.Hidden And C = Kriterie Then

til

If Not C.EntireRow.Hidden And C >= Kriterie Then

så skal den kaldes sådan

=Tæl_Hvis_Ikke_Skjult(C1:C30;A1)

Hej
Det ser ikke ud til at virke
Jeg får værdien 1.

Tæller den rækker eller koloner ?

celler, der er synlig og som opfylder kriterie

og kriterie er det som der står i i den kode >=  ik ?

ja

jep det virker - fedt -
det var forbi at jeg have taget noget tekst med i nogle af fleterne..

og point

et svar ;-))

hvad skal man skrive hvis det være på alle celler ? både dem der er synlige og ikke synlige ?

så fjerner du
'Not C.EntireRow.Hidden And'

i

If Not C.EntireRow.Hidden And C >= Kriterie Then

så det bliver til

If  C >= Kriterie Then

hej kabbak - håber at du læser dette....

Hvordan er fremgangs måde for linke makro til excel arket...
Jeg får at vide at #navn som om den ikke kender funktionen...

=Tæl_Hvis_Ikke_Skjult(
skal være det samme som funktionen hedder
Public Function Tæl_Hvis_Ikke_Skjult(Område As Range, Kriterie)

Hej
det jeg mente var - hvordan man gemte makroen, men jeg gemte file med aktive makroer -så viker det