Macro laten tellen hoe vaak bepaalde waarde voorkomt?

[Rattewrat]

Hallo,

Ik ben op zoek naar een VB regel die me kan helpen met het volgende:

Ik heb een aantal Ranges opgeslagen en deze samengevoegd in een Array op de volgende manier:

Set "Range1" = Range("A1:B10")
Set "Range2" = Range("C1:D10")
etc...
Dim RangeArray As Variant
RijArray = Array(Range1, Range2, Range3,Range4,Range5 etc...)

Nu zoek ik een manier om snel te kunnen vinden welke waarde maar 1 keer voorkomt in de verschillende bereiken. Binnen Excel zou je dit kunnen doen met Aantal.als(Bereik,"waarde"), maar in VB krijg ik het niet voor elkaar.

Je kunt het natuurlijk doen met:

For i = 1 to 100
   For Each Cell In RangeArray(i)
                If Cell.Value = Zoekwaarde Then
                    j = j + 1
                End If
   Next Cell
If i <> 1 Then
Next i
End If

Maar op deze manier kom ik in de problemen bij langere zoekopdrachten en bovendien lijkt het me erg omslachtig. Ik hoop dat iemand mij zou kunnen helpen!

Dank,

Willem

 

[huijb]

Als het een VBA vraag is dien je hem wel in die sectie te zetten. Bij deze dus.

 

[Wigi]

Application.WorksheetFunction.Countif(range, zoekwaarde)

 

[Rattewrat]

Eureka, dat werk! Dank Wigi!

En sorry voor de post op de verkeerde plaats...

 

[Wigi]

Da's niks.

Zet wel de vraag nog op opgelost aub.

Wigi