VLookup in VBA

[Atwist]

Ik loop vast met de VLookup functie in VBA, krijg het niet voor elkaar dat de TextBoxen(TB) worden gevuld.
De ComboBox (CBB) werkt goed maar het vert.zoeken (VLookup) niet

Private Sub CBB_klantnaam_wijzig_Click()
TB_contactpersoon_wijzig.Value = Application.WorksheetFunction.VLookup(CBB_klantnaam_wijzig.ListIndex)
TB_adres_wijzig.Value = Application.WorksheetFunction.VLookup(CBB_klantnaam_wijzig.ListIndex)
TB_plaats_wijzig.Value = Application.WorksheetFunction.VLookup(CBB_klantnaam_wijzig.ListIndex)
End Sub

Kan iemand de TB_contactpersoon_wijzig aanpassen zodat ik weer verder kan en kan zien wat ik verkeert heb gedaan.

Alvast bedankt.

 

[snb]

Daar zijn de werkbladfunkties ook niet voor bedoeld.

Private Sub CBB_klantnaam_wijzig_Click()
  TB_contactpersoon_wijzig = CBB_klantnaam_wijzig.column(0)
  TB_adres_wijzig = CBB_klantnaam_wijzig.column(1)
  TB_plaats_wijzig = CBB_klantnaam_wijzig.column(2)
End Sub

NB. het defaultkenmerk van een tekstvak is .Text, niet .Value
NB2. gebruik een werkbladfunktie (als je hem al gebruikt) altijd met application, zonder 'worksheetfunction': application.Match i.p.v worksheetfunction.match

 

[Atwist]

Dank je SNB,

Code werkt perfect.

NB. het defaultkenmerk van een tekstvak is .Text, niet .Value
NB2. gebruik een werkbladfunktie (als je hem al gebruikt) altijd met application, zonder 'worksheetfunction': application.Match i.p.v worksheetfunction.match

Hier ga ik zeker rekening mee houden

Nogmaals mijn dank

 

[snb]

Als je kijkt naar de argumenten van Vlookup is het tweede argument een range of named range.
Ranges komen alleen in Excel werkbladen voor, niet in comboxen of listboxen in een Userform.

Alls werkbladfunkties die expliciet een Range nodig hebben, zijn alleen te gebruiken in een werkblad..