Opgelost CountIf

[Excelvbas01]

Halle Allen,
Ik genruik deze formule om een bepaalde items te tellen.

Dim appcount as integer
Appcount = Application.WorksheetFunction.CountIf(Range("A1:A5"), "appels")

Het werkt prima maar wil een ding toevoegen aan fomule maar dan werkt het niet. Ik wil meerdere dingen kunnen tellen.
BV: Appels, peren en Bananen.

Ik heb dit geprobeerd maar het werkt niet.
Appcount = Application.WorksheetFunction.CountIf(Range("A:A"), "Appels", "peren", "Bananen")

Heeft iemand een idee hoe ik dit kan oplossen.

 

[emields]

heb je al geprobeerd van een voorbeeld bestandje te plaatsen?
Of moeten wij dat zelf maken?

 

[HSV]

Appcount = evaluate("sum(countIf(A:A,{""Appels"",""peren"",""Bananen""}))")

Of:

Appcount =  [sum(countIf(A:A,{"Appels","peren","Bananen"}))]

 

[edmoor]

Of als je het per soort gesplitst wilt hebben:

 

[popipipo]

Een draaitabel is ook nog een optie.

 

[Excelvbas01]

Probleem opgelost.

Allen bedankt voor jullie hulp.

Ik was opzoek naar deze formule:
Appcount = evaluate("sum(countIf(A:A,{""Appels"",""peren"",""Bananen""}))")