Verticaal zoeken met userform

[drubbus]

Ik wil graag met een userform verticaal zoeken
Ik heb dit gevonden op het forum
Dit lukt wel met cijfers maar ik wil er ook letters in verwerken
De gegevens van het personeel staan op werkblad "FC"

Ik heb nog wel Excel 2003


Private Sub ComboBox1_Change()
TextBox1.Text = Application.Evaluate( _
"=IF(ISERROR(MATCH(" & ComboBox1.Value & ",PersoneelsNr,0)),""""," & _
"INDEX(PersoneelsNaam,MATCH(" & ComboBox1.Value & ",PersoneelsNr,0),1))")
End Sub


Dank
Drubbus

 

[drubbus]

Zelf uitgevonden met hulp van eerder geposte mogelijkheden

Dit is m geworden
met toewijzing van gegevensblad



Private Sub ComboBox1_Change()
Dim rNaam As Range
Set rNaam = Range("Blad3!A1:B400").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