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
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
Code:
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
Laatst bewerkt door een moderator: