Zoek gedrag veranderen binnen makro

[john681]

Macro zoekgedrag wijzigen


Ik heb onderstaande Marko om in de kolom G te kunnen zoeken.
De marko werkt voor mij goed en wil ik als basis zo houden.
Probleem is ik heb een lijst met 4000 namen van artikelen en wil enkel zoeken op begin term.
Stel het is een lijst met namen waarin jansteen,pietsteensma,steentjes en steensma en ik ga

zoeken op stee dan wil ik niet dat hij jansteen en pietsteen vindt maar alles wat met stee

begint.
Wie kan/wil mij helpen (liefst zo eenvoudig mogelijke oplossing omdat ik er niet al te goed in thuis ben)
b.v.d. John

Sub zoeken()
On Error GoTo fout

Dim Zoekterm As String
Zoekterm = InputBox("Op welke zoekterm wilt u zoeken?")

Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, 

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub 
Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, 

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub

 

[Cobbe]

Kleine aanpassing, hoop dat het goed gaat:

Sub zoeken()
On Error GoTo fout

Dim Zoekterm As String
Zoekterm = InputBox("Op welke zoekterm wilt u zoeken?")
[COLOR="red"][B]Zoekterm = Zoekterm & "*"[/B][/COLOR]
Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=[COLOR="red"][B]xlWhole[/B][/COLOR], SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + "Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub

 

[john681]

Dank je Cobbe,
Dat was precies wat ik zocht, ik ben er tijden mee bezig geweest maar ik ben er dan ook niet echt goed in thuis. ik kan weer verder.
Met vr. groet
John