[Excel] Cellen met tekst selecteren en/of tellen

[Bart ®]

Ik ben op zoek naar een manier om in een excel-werkblad alle cellen te selecteren waarin een bepaalde tekst voorkomt.

voorbeeld:
[bla bla 6m bla] [bla bla 5m bla]
[bla bla 5m bla] [bla bla 5m bla]
[bla bla 5m bla] [bla bla 6m bla]
[bla bla 5m bla] [bla bla 5m bla]
[bla bla 6m bla] [bla bla 5m bla]
[bla bla 5m bla] [bla bla 5m bla]

Dan wil ik dus het aantal cellen met "6m" erin weten, in dit geval 3.

Ik wil de cellen selecteren zoals ook zou gebeuren als ik de cellen met "6m" handmatig aan zou klikken met ctrl ingedrukt. Ik wil ze namelijk tellen, en daar heb ik een macro voor gevonden, zodat ik dus weet hoevel "6m" items er in een werkblad zitten.

Wat dus wel belangrijk is, is dat niet alleen cellen geselecteerd worden met de tekst "6m", maar ook cellen met de tekst "kerstbal wasmachine 6m computer" en "6m pinpas dakgoot".

De macro-code voor het tellen van geselecteerde cellen is:

code:

Sub Count_Selection()
    Dim cell As Object
    Dim count As Integer
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    MsgBox count & " item(s) selected"
End Sub

Misschien is iemand handig genoeg (ik niet dus) om dit te integreren met een zoek-op-tekst-en-selecteer functie ofzo, maar met een manier om de cellen automatisch te selecteren met ik ook al zeer blij

[Lustucru]

Als je nu in het zoekscherm alles zoeken aanklikt dan zie je meteen daaronder welke cellen gevonden zijn en hoeveel het er zijn?
Owe, ctrl+A selecteert de hele gevonden selectie.

[Anoniem: 113297]

enkel tellen kan met de volgende matrixformule:

code:

{=SOM(LENGTE(A1:B6)-LENGTE(SUBSTITUEREN(A1:B6;"6m";"")))/LENGTE("6m")}

de accolades type je niet zelf maar worden automatisch geplaatst door de formule te bevestigen met ctrl+shift+enter ipv. enkel de enter toets.
de string "6m" kan je natuurlijk vervangen door een celverwijzing die de te zoeken tekst bevat.
edit:om te selecteren:gewoon zoekscherm gebruiken zoals aangegeven door Niesje

[ Voor 9% gewijzigd door Anoniem: 113297 op 06-12-2006 12:59 ]

[Bart ®]

niesje schreef op woensdag 06 december 2006 @ 12:24:
Als je nu in het zoekscherm alles zoeken aanklikt dan zie je meteen daaronder welke cellen gevonden zijn en hoeveel het er zijn?
Owe, ctrl+A selecteert de hele gevonden selectie.

nooit gezien die alles zoeken knop...

anyway

Alleen... als iemand handig genoeg is om het geheel in een macrotje te gooien, dan zou ik helemaal dankbaar zijn

[onkl]

Merovingian schreef op woensdag 06 december 2006 @ 13:08:
[...]

nooit gezien die alles zoeken knop...

anyway

Alleen... als iemand handig genoeg is om het geheel in een macrotje te gooien, dan zou ik helemaal dankbaar zijn

Je kan op zich wel enigszins omgaan met VBA begrijp ik. Wat dan relatief goed werkt is gewoon doen wat Niesje aangeeft met de macro recorder aan. Vervolgens sloop je (handmatig) de bloat uit je code en dan ben je een goed eind op weg.