Aantal.als in combinatie met istekst

[stefano]

Ik wil een aantal tekstvelden bepalen met behulp van de formule aantal.als en meerdere criteria. Hiervoor gebruik ik onderstaande formule:

=SOMPRODUCT(($A$1:$A$10=2)*($D$1:$D$10="Jan"))

HBekijk bijlage aantal als.xlsxet tweede criterium ="Jan" zou ik willen veranderen door istekst.

Hoe ik dit moet doen weet ik echter niet. Kan iemand helpen aub, waarvoor dank.

Stefaan

voorbeeldje in bijlage.

 

[Roncancio]

=SOMPRODUCT(($A$1:$A$10=2)*($D$1:$D$10>"#"))

Met vriendelijke groet,


Roncancio

 

[stefano]

Als ik onderstaand in vba invoeg dan krijg ik een compileerfout bij het #-teken. Wat kan de oorzaak zijn?

Range("K3:K" & Lgc).Formula = "=SuMPRODUCT((formule!$A$3:$A$10000=A3)*(COUNTIF(formule!$D$3:$D$10000);">#"))"

Ik heb ook al proberen aanpassen naar

Range("K3:K" & Lgc).Formula = "=SuMPRODUCT((formule!$A$3:$A$10000=A3)*(COUNTIF(formule!$D$3:$D$10000);">" & "#"))"

maar daar krijg ik dezelfde fout.

 

[Cobbe]

[COLOR="#FF0000"]"[/COLOR]">#"[COLOR="#FF0000"]"[/COLOR]))

Je moet de aanhaaltekens dubbelen.

 

[stefano]

Ok dank je wel, de compileerfout is verdwenen maar een andere fout duikt op. Ik zet even de volledige code hieronder.

En de andere fout is

Fout 1004 tijdens uitvoering
Door de toepassing of door object gedefinieerde fout

Sub tellen()
'LaatstgevuldeCel =Lgc
Dim Lgc As Integer
With Range("A:A").SpecialCells(2)
    Lgc = .Cells(.Cells.Count).Row
    Range("K3:K10000").Value = ""

    Range("K3:K" & Lgc).Formula = "=SuMPRODUCT((formule!$A$3:$A$10000=A3)*(COUNTIF(formule!$D$3:$D$10000);"">#""))"
  End With

End Sub

 

[ExcelAmateur]

stefano,

Probeer het zo eens.

Sub tellen()
'LaatstgevuldeCel =Lgc
Dim Lgc As Integer
With Range("A:A").SpecialCells(2)
    Lgc = .Cells(.Cells.Count).Row
    Range("K3:K10000").Value = ""

    Range("K3:K" & Lgc).Formula = _
        "=SUMPRODUCT(R3C1:R10000C1=R3C1)*(COUNTIF(R3C4:R10000C4,"">#""))"
End With
End Sub

Denk dat dit beter is, deze past op iedere regel de A aan. ( A3 - A4 enz.)

Sub tellen()
'LaatstgevuldeCel =Lgc
Dim Lgc As Integer
  With Range("A:A").SpecialCells(2)
    Lgc = .Cells(.Cells.Count).Row
    Range("K3:K10000").Value = ""

    Range("K3:K" & Lgc).Formula = _
        "=SUMPRODUCT(R3C1:R10000C1=RC[-10])*(COUNTIF(R3C4:R10000C4,"">#""))"
  End With
End Sub