VLookup in VBA form werkt niet

[Goldfoxx]

Ik ben een formulier aan het maken in VBA. Het volgende is de bedoeling:
- Debiteurnummer word ingevuld in een ComboBox met een specifieke range. (dit werkt)
- Op basis van deze waarde word de debiteurnaam met Vlookup gezocht in een werkblad. (veld "TBklantnaam"

De code die ik momenteel heb is de volgende:

Private Sub CBklantnr_Change()

Dim myRange As Range
Set myRange = Worksheets("Relatiebestand").Range("A:AZ")

TBklantnaam = WorksheetFunction.VLookup(CBklantnr, myRange, 3, 0)

End Sub

Hierbij krijg ik alleen de volgende melding: "unable to get the vlookup property of the worksheetfunction class", wat betekent dat er een foutmelding uit de formule komt.

Ik heb het volgende geprobeerd om te kijken waar de fout in zou moeten zitten:
- Een vaste waarde ingevuld in de formule, hierbij werkt de formule wel en krijgt het tekstveld de juiste waarde.. (vb: TBklantnaam = WorksheetFunction.VLookup(31453, myRange, 3, 0)
- Gekeken of CBklantnr een juiste waarde geeft, ook hier wordt een waarde meegegeven aan het tekstveld. (vb: TBklantnaam = CBklantnr.value)

Het is mij niet duidelijk waarom de formule niet werkt, heeft iemand een idee waar het in kan zitten?

 

[edmoor]

Maak van CBklantnr eens CBklantnr.Text

 

[Goldfoxx]

Maak van CBklantnr eens CBklantnr.Text

Dat maakt helaas geen verschil.

 

[edmoor]

Je code is verder goed dus wellicht dat je je document even kan plaatsen.

 

[Goldfoxx]

Je code is verder goed dus wellicht dat je je document even kan plaatsen.

Bij deze!

Bekijk bijlage Test.xlsm

 

[edmoor]

Maak er maar dit van:

Private Sub CBklantnr_Change()
    Dim myRange As Range

    Set myRange = Worksheets("Relatiebestand").Range("A:AZ")
    TBklantnaam = WorksheetFunction.VLookup(CLng(CBklantnr), myRange, 3, 0)
End Sub

Je probeerde een String (CBklantnr) te vergelijken met een Long Integer (Kolom A) en daar ging het mis.

 

[Goldfoxx]

Maak er maar dit van:

Private Sub CBklantnr_Change()
    Dim myRange As Range

    Set myRange = Worksheets("Relatiebestand").Range("A:AZ")
    TBklantnaam = WorksheetFunction.VLookup(CLng(CBklantnr), myRange, 3, 0)
End Sub

Je probeerde een String (CBklantnr) te vergelijken met een Long Integer (Kolom A) en daar ging het mis.

Bedankt! Dat werkt inderdaad.

Op welke manier kan ik het onderscheid maken tussen deze twee, dat mij duidelijk is wanneer het een string betreft en geen Long integer?

 

[edmoor]

Als er tekst (letters) in de variabele of cel staat is het altijd een string. Als er in een cel een getal staat die rechts uitgelijnd is mag je er vanuit gaan dat het gaat om een (Long) Integer. Tenzij bewust anders gedaan d.m.v. cel eigenschappen.

Een getal in een Text- of Combobox is altijd een string. De functie CLng converteert deze.

 

[Goldfoxx]

Als er tekst (letters) in de variabele of cel staat is het altijd een string. Als er in een cel een getal staat die rechts uitgelijnd is mag je er vanuit gaan dat het gaat om een (Long) Integer. Tenzij bewust anders gedaan d.m.v. cel eigenschappen.

Een getal in een Text- of Combobox is altijd een string. De functie CLng converteert deze.

Bedankt voor de info en je hulp! Ik zet het topic op opgelost.

 

[edmoor]

Ok dan

Tip: Als je direct reageert op een vorig bericht hoef je niet te Quoten.

 

[snb]

Het kan veel slimmer zonder vlookup of benoemde gebieden.