Funktionen tæl.hvis

Der findes 2 funktioner der hedder: Og(),Eller()

så du kan f.eks. skrive:

=Tæl.Hvis(A1:b20;og(krit1;krit2;osv))
Du kan opsætte 30 kriterier på denne måde. Du kan selvfølgelig blande med Eller(). Nåh-ja. Du kan også bruge Ikke()
=Tæl.Hvis(a1:b20;og(krit1;ikke(krit2)))
Krit1 skal være; men krit2 må ikke være!

Det er ikke muligt at have flere kriterier ved brug af tæl.hvis. Det er kun muligt at bruge disse kriterier som f.eks. 32, \"32\", \"<32\", \"tekst\".

Du bliver nød til at skrive en macro.

Hilsen

Lars

>Isimony
Du har ret. Det virker ikke sammen med Tæl.hvis()
Det virker dog sammen med HVIS()
Så jeg trækker mit svar tilbage.
Johs.J

Du kan evt. benytte denne macro...

Hilsen

Lars

Sub Tael()
    Dim count As Integer
    Dim aarstal As String
    Dim model As String
    Dim farve As String
    Dim aarstalKolonne As Integer
    Dim modelKolonne As Integer
    Dim farveKolonne As Integer
    Dim maxRaekker As Integer
    Dim kriterie1 As String
    Dim kriterie2 As String
    Dim kriterie3 As String
       
    aarstalKolonne = 1  \' 1 = kolonne A
    modelKolonne = 2    \' 2 = kolonne B
    farveKolonne = 3    \' 3 = kolonne C
    maxRaekker = 50    \' Antal raekker der skal gennemsøges
   
    kriterie1 = InputBox(\"Indtast årstal\", \"titel\", \"standard\")
    kriterie2 = InputBox(\"Indtast type\", \"titel\", \"standard\")
    kriterie3 = InputBox(\"Indtast farve\", \"titel\", \"standard\")
   
    For i = 1 To maxRaekker
        aarstal = Cells(i, aarstalKolonne)
        model = Cells(i, modelKolonne)
        farve = Cells(i, farveKolonne)
       
        If kriterie1 = aarstal And kriterie2 = model And kriterie3 = farve Then
            count = count + 1
        End If
    Next i

    Cells(1, 4) = count  \' Returner antal hits i celle D1

End Sub

Hej Lars

Det ser ud som om den virker fint ( macroen ), men problemet er at der kommer ikke noget resultat i D1, kan du fortælle mig hvad jeg gør forkert.?

mvh

Jesper

Hej Jesper

kan det være du ikke har skrevet det eksakte søgeord i inputboxene? Macroen tager ikke højde for store og små bogstaver.

Hilsen

Lars

Hej Lars

Det syntes jeg at jeg har prøvet, både store og små, men den skriver stadigvæk ingenting.
Er det lige meget om type og farve er tal eller bogstaver - kan det evt. være her fejlen ligger.?
Lige nu er begge bogstaver/ord.

mvh

Jesper

Hej Jesper

Macroen virker fint hos mig. Får du kun 0 i cellen efter at du har kørt macroen? Selvom der skulle være hits?
Macroen indlæser værdierne i cellerne som tekst, selvom indholdet er tal m.m. Kriterierne bliver også indlæst som tekst. Derfor skulle der ikke opstå nogen konflikt hvis type eller farve var tal.

Jeg har placeret macroen i et modul tilhørende regnearket.

Med venlig hilsen

Lars

Hej Lars

Jeg fjernede End If og så virker det.!
Mange tak for hjælpen

mvh

Jesper

>>> Jesper

En alternativ løsning kunne være en arrayformel. Så slipper man for VBA-programmering. En array-formel kan håndtere så mange kriterier du har lyst til.