VBA-code " alles zoeken"

[Yvontje82]

Beste,

Ik kan redelijk m’n weg vinden binnen de diverse VBA-codes, maar voor het gros maak ik toch gebruik van de mogelijkheid “Macro-opnemen” waarna ik de codes hier en daar een beetje aanpas.
Echter, via deze functie is het niet mogelijk om de zoek-functie (op te vragen dmv CRTL + F) om te zetten naar een VBA-code. Nu beschik ik wel over een code waarmee ik kan zoeken, maar dat is alleen binnen het werkblad waarin ik mij op dat moment bevind en alleen de eerste treffer van het het gezocht woord.
Maar wat ik graag wil is dat de code het gezochte trefwoord of cijfercombinatie opzoekt in het gehele werkmap en ook alle treffers toont met slechts één druk op de knop.

De code die ik heb gevonden (1a + b) en een voorbeeld van wat ik wil (2) heb ik als bijlage bijgevoegd.

Hoop van harte dat iemand mij hiermee kan helpen.
Alvast bedankt.

Met vriendelijke groet,
Yvonne

 

[wampier]

Zie de voorbeeldcode op deze pagina:

http://msdn.microsoft.com/en-us/library/office/ff839746(v=office.15).aspx

Hier wordt de werking van find en findnext uitgelegd. Het samenvoegen van de gevonden ranges moet je zelf even doen. In principe is dit hetzelfde als de getoonde find functie.

 

[Tha Devil]

Verplaatst van Visual Basic naar Visual Basic for Applications

 

[Yvontje82]

Top, dank je voor deze link.
Ik ga ermee aan de slag... :thumb:

 

[OctaFish]

Het is een beetje lastig om het originele dialoogvenster op te sporen, omdat je de CommandBar ID moet weten. Maar daarna is het wel te doen:

Sub dlgFindAll()
Dim c As CommandBarButton
Dim colCtrls As CommandBarControls

    Set colCtrls = CommandBars.FindControls
    Set c = CommandBars.FindControl(ID:=1849) 
    c.Execute
End Sub

 

[OctaFish]

Of, met één regel:

Application.CommandBars.FindControl(ID:=1849).Execute