in inhoud van een cel zoeken vba

[japio86]

Goedendag,

Waarschijnlijk een heel simpel dingetje maar ik kom er niet uit.

Doormiddel van VBA wil ik in een bereik zoeken op celinhoud.
Voorbeeld:
Bereik A1:A10 wil ik het aantal 6en optellen.
Cel A1 bevat 6,7,8
Cel A2 bevat 7,8,9,10
Cel A3 bevat 6,6,7,8

3 6en dus.

Met onderstaande code werkt het niet

Dim tel As String
Dim test As String

tel = 2
test = 1
Do Until IsEmpty(Sheet9.Cells(tel, 3))
If Sheet9.Range(tel, 3) = "6" Then
test = test + 1
Sheet2.Range("H80").Value = "test"
End If

tel = tel + 1
Loop

 

[japio86]

Ben gekomen tot deze code

Set P = Sheet9.Columns(3).Find(What:="7", LookIn:=xlValues, LookAt:=xlPart, _
              SearchDirection:=xlNext)
Sheet2.Range("H80") = P

Alleen word nu de inhoud van de gevonden cel gekopieerd en niet het aantal
cellen waarin 7 voorkomt.

Misschien dat iemand mij kan helpen?

 

[Markal]

Japio,

Ik heb er een functie van gemaakt, deze staat in a5.

Lijkt het wat?

 

[japio86]

Zo simpel kan het zijn
1 vraagje:
Hoe kan ik met deze functie een verschil maken tussen het zoeken naar een 1
en naar 10.

Helemaal top voor de rest!

 

[Markal]

Door de functie iets aan te passen (gaat er wel vanuit dat de waarden altijd zijn gescheiden door een aansluitende komma [dus geen spaties]):

Function tel(R As Range, Zoek As String)
    tel = 0
    Zoek = "," + Zoek + ","
    For Each c In R
        s = 1
        Do
            cw = "," + c.Value + ","
            gevonden = InStr(s, cw, Zoek)
            If gevonden Then
                s = InStr(s, cw, Zoek) + 1
                tel = tel + 1
            End If
        Loop Until gevonden = 0
    Next c
End Function

 

[japio86]

Helemaal geweldig!
De data wordt altijd gescheiden door komma's dus zo is het helemaal goed.

Bedankt!

Gr, Jaap