Button voor gewoon zoeken in sheet

[hazesoft]

Goede middag beste excel-specialisten,

Ik ben bezig met een eenvoudige sheet (overzicht) voor onze heemkundegroep.
Hoe kan ik nu een button maken om naar een stuk tekst in de gehele sheet te zoeken?
Ik bedoel gewoon zoeken via de verrekijker, zodat andere leden van de heemkundegroep deze button kunnen gebruiken in plaats van de verrekijker uit het menu.

Bijvoorbaat mijn dank,
Hans Zeelenberg

 

[pasan]

deze is in XL 2010 gemaakt ik weet niet zeker of dit ook in eerdere versies werkt
ten eerste heb ik de 1e kolom en de 1e rij geblokkeerd
een knop geplaatst en een textvak(activeX besturings element) geplaatst
de volgende code achter de knop plaatsen, pas het nummer van de knop in de code aan

Sub Knop8_Klikken()
Dim woord As String

On Error GoTo einde

 Sheets("Blad1").Cells.Interior.ColorIndex = 2
 woord = Sheets("Blad1").TextBox1
 If Sheets("Blad1").TextBox1 = "" Then Cells.Interior.ColorIndex = 2 And Range("A2").Activate
 If Sheets("Blad1").TextBox1 = "" Then Exit Sub
    Cells.Find(What:=woord, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
Application.ActiveCell.Interior.ColorIndex = 4

einde:
End Sub

bijlage bijgevoegd

 

[hazesoft]

Reactie op Pasan

Pasan bedankt. Het werkt ook in Excel 2007! :thumb:

 

[hazesoft]

Te vroeg gejuicht

Beste Pasan,

Klein probleempje:
Wanneer ik zoek op "woningen" in de laatste kolom, laat hij de rij maar 1 keer zien, terwijl er "woningen" staat in regel 7 en 10.
Is dit op te lossen?
Bijvoorbaat dank.

 

[Warme bakkertje]

Is het de bedoeling van te zoeken op het ganse blad, of enkel in de laatste kolom ?

 

[hazesoft]

zoeken

Dag Rudi,

Zoeken in de laatste kolom is voldoende.

 

[Warme bakkertje]

Zet deze in de bladmodule van Blad1.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
    Selection.AutoFilter field:=6
Else
    Selection.AutoFilter field:=6, Criteria1:="=*" & TextBox1 & "*", Operator:=xlAnd
End If
End Sub

Als je nu in het tekstvak begint te typen wordt er in de laatste kolom gefilterd. Maak je de textbox leeg krijg je alle gegevens terug.

 

[hazesoft]

Het werkt!

Dag Rudi,

Bedankt voor jouw tip; klasse!. Het werkt zoals ik wens.

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.