Slechts met deel van woord zoeken in een UserForm

Status
Niet open voor verdere reacties.
tonissteiner

tonissteiner

Gebruiker
Lid geworden
17 sep 2008
Berichten
337
Hallo beste forum gebruikers,

via de volgende code kan er via een combobox in een userform gezocht worden en de gevonden waarde weergegeven worden in een textbox:

Code: 
Private Sub ComboBox1_Change()
Dim rNaam As Range
Set rNaam = Range("PersoneelsNr").Find(What:=ComboBox1.Value, _
                                    LookIn:=xlValues, _
                                    Lookat:=xlWhole, _
                                    MatchCase:=False)
If Not rNaam Is Nothing Then
    TextBox1.Text = rNaam.Offset(0, 1)
Else
    TextBox1.Text = ""
End If
End Sub

Echter moet er met deze code een gehele match zijn met wat ik wil zoeken. Zelf kan ik niet vinden hoe ik de code best aanpas om ook te kunnen zoeken op slechts een deel van de zoekterm.

Bijvorbeeld als ik zoek op "PD-1087295-A" werkt de code perfect. Echter is onze database niet consequent opgesteld en soms hebben we wel eens waarden zoals "PD108729".
Dus zou ik graag kunnen zoeken op slechts een deel of enkel de numerike waarden. Dus bijvoorbeeld "1087295"

Kan / wil iemand me helpen deze code aan te passen aub?

Alvast bedankt.

Mvg.
 
Wijzig xlWhole in xlPart.
 
Zou dit niet voldoende zijn ?

Code: 
Private Sub ComboBox1_Change()
  on error resume next
  if combobox1.listindex>-1 then Msgbox Range("PersoneelsNr").Find(ComboBox1,,2).offset(,1).value
End Sub
 
Hallo Snb,

bedankt voor mee te denken. ik probeer deze code eens uit.

mvg
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan