Excel zoekfunctie makro

[Verwijderd]

Wie kan mij helpen met het maken van een zoekfunctie binnen excel.

Wat heb ik nodig,

De zoekfunctie moet kijken in kolom B. Kolom B is gewoon tekst.

Ook wil ik dat de zoekfunctie eruit ziet als een tekstvlak met een command knop 'zoek'

Alvast bedankt!

[EoG]

Wat heb je zelf al kunnen uitzoeken?

Tweakers is geen kant-en-klaar-antwoord/oplossingen forum.

[Verwijderd]

Heb al op google meerdere makro's gevonden maar deze geven niet de oplossing die ik zoek. Dus als iemand een idee heeft of de juiste macro puzzel ik zelf wel weer verder.

[EoG]

Wat heb je gevonden? Welke zoektermen heb je gebruikt? Dit is echt vrij eenvoudig te vinden.

[Verwijderd]

Sub AutoVorm1_BijKlikken()

End Sub
Sub Find_Data()
Dim datatoFind
Dim sheetCount As Integer
Dim counter As Integer
Dim currentSheet As Integer

On Error Resume Next
currentSheet = ActiveSheet.Index
datatoFind = InputBox("Please enter the value to search for")
If datatoFind = "" Then Exit Sub
sheetCount = ActiveWorkbook.Sheets.Count
If IsError(CDbl(datatoFind)) = False Then datatoFind = CDbl(datatoFind)
For counter = 1 To sheetCount
Sheets(counter).Activate
Cells.Find(What:=datatoFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If ActiveCell.Value = datatoFind Then Exit Sub
Next counter
If ActiveCell.Value <> datatoFind Then
MsgBox ("Value not found")
Sheets(currentSheet).Activate
End If
End Sub


End Sub


Deze macro werkt, echter zoekt hij naar de hele zin.

Kolom B

Pietje Bel 1

Als ik dan zoek naar 'Pietje' vindt hij niks, als ik zoek naar Pietje Bel 1 is er geen probleem.

Wat moet ik aanpassen in de macro om dit probleem op te lossen?

[ Voor 13% gewijzigd door Verwijderd op 05-01-2011 09:05 ]

[F_J_K]

GoT is niet bedoeld als afhaalrestaurant waar je op het web gevonden code kopieert. Het is wel de bedoeling dat je zelf de code probeert te interpreteren, ten minste door de F1-teksten er naast te leggen en zelf die gevonden code te begrijpen maar dat heb je helaas niet gedaan.

Daarom ga ik dit topic sluiten. Open gerust een nieuw topic, maar doe dan wel even meer dan alleen een Google-hit kopieren/plakken. Zorg dat je weet wat de code doet en waarom het noet doet wat je wilt. Kijk met F1 naar de parameters die de Find()-functie kent, dan kom je er waarschijnlijk al uit en zo niet denken we graag mee met je eigen code - en een meer specifieke vraag dan 'help hij doet het niet'.

offtopic:
Je kunt code leesbaar maken met [code] tags.

Zonder VBA kan je natuurlijk altijd gewoon ctrl-F gebruiken.