verticaal zoeken in excel VBA (userform)

[rrtz]

Ik zocht naar een functie waarbij het mogelijk is om na een selectie van een bepaalde waarde in de combobox een ander tekstvak automatisch in de userform mee te veranderen. Na een tijdje zoeken kwam ik op een vraag op dit forum van een tijdje geleden. Maar het probleem is dat de oplossing cijfers selecteert in de combobox en letters weergeeft in het tekstvak. Zou iemand de oplossing weten om het omgekeerde te kunnen doen (dus van letters naar cijfers)? zo kan ik dit systeem implementeren in mijn programma.

dit was de code:

 Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "PersoneelsNr"
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1.Text = Application.Evaluate( _
    "=INDEX(PersoneelsNaam,MATCH(" & ComboBox1.Value & ",PersoneelsNr,0),1)")

in Bijlage vindt u het bestand,
Alvast bedank!
Mvg,
Tim

Bekijk bijlage Map1 (3).xls

 

[VenA]

zoiets?

Private Sub UserForm_Initialize()
    ComboBox1.List = Blad2.Columns(2).SpecialCells(2).Offset(1).SpecialCells(2).Value
End Sub

Private Sub ComboBox1_Change()
    TextBox1 = Blad2.Cells(ComboBox1.ListIndex + 2, 1)
End Sub

 

[rrtz]

zoiets?

Private Sub UserForm_Initialize()
    ComboBox1.List = Blad2.Columns(2).SpecialCells(2).Offset(1).SpecialCells(2).Value
End Sub

Private Sub ComboBox1_Change()
    TextBox1 = Blad2.Cells(ComboBox1.ListIndex + 2, 1)
End Sub

PERFECT!
Enorm bedankt VenA! Dit werkt prima.
Dit lijkt misschien simpel, maar ik had er zonder uw zeker hulp niet op gekomen.

(ik wil zeker geen commentaar geven op de code, maar moest er nog iemand anders zijn die de code wil gebruiken moest er achter "Textbox1" moest er nog ".text" komen. Maar dit is slechts een detail)

 

[VenA]

Graag gedaan

Ik ben mijn eigen bericht nog niet vergeten dus hoef je dat niet te quoten. En waarom moet er achter 'Textbox1' nog '.text' komen te staan?

Private Sub ComboBox1_Change()
    TextBox1 = Blad2.Cells(ComboBox1.ListIndex + 2, 1)
    MsgBox TextBox1.Value & Chr(10) & TextBox1.Text
End Sub

 

[rrtz]

Oei sorry, ik zal niet meer quoten.
Omdat ik volgende foutmelding kreeg zonder de '.text' : " Kan de eigenschap Value niet instellen. Type komt niet overeen" .