waarden tellen

[ikselle]

Ik wil graag dmv vba bepalen hoeveel keer de waarden uit de gele range voorkomen in de range B2:B14. Misschien is er iemand die hier een snelle oplossing voor weet ? = eigenlijk vervanger van countifs dat ik zoek maar in vba. Vermoedelijk kan dit met dictionnary maar daar heb ik helemaal geen kaas van gegeten. Thanks.

 

[SjonR]

zoiets?

Sub SjonR()
For Each cl In Range("D2:H2")
    cl.Offset(1) = Application.CountIf(Range("B2:B14"), cl)
Next
End Sub

 

[ikselle]

Bedankt SjonR,
Je hebt me op de goede weg gezet !

Sub SjonR()
Dim totaal As Integer
totaal = 0
For Each cl In Range("D2:H2")
    totaal = totaal + Application.CountIf(Range("B2:B14"), cl)
Next
MsgBox totaal
End Sub

 

[HSV]

Of:

Sub hsv()
 MsgBox [sum(countif(b2:b14,d2:h2))]
End Sub

 

[ikselle]

Beste Harry,
Korter kan niet zeker ? BEDANKT:thumb:

 

[HSV]

De naam van de sub kan korter. :d