HLookUp in een form

[Dmar]

Beste,

Ik probeer de juiste waarde uit een excelsheet te halen en deze te plaatsen 'in een form.'
Hierbij moet de zoekterm uit een ComboBox gehaald worden en moet hierbij de juiste getal-waarde die hierbij hoort uit een Range in een bepaalde Sheet gehaald worden en daarmee moet ik rekenen in de form.

Hierbij gebruik ik het volgende:

waarde=HLookUp(ComboBoxprijslijst.Object.value;Sheets("ProductenOverzicht").Range("AF2:AS45");2;FALSE)*"hoeveelheid"

of

waarde=HLookUp(ComboBoxprijslijst.Object.value;ProductenOverzicht!AF2:AS45;2;FALSE)*"hoeveelheid"

,maar beide lijken niet te werken.

Wat is de juiste aanpak hiervan?

Alvast Bedankt!:thumb:

EDIT: Juiste oplossing onderaan

 

[HSV]

Probeer het zo eens.

waarde = [COLOR="red"]Worksheetfunction.[/COLOR]HLookUp(ComboBoxprijslijst.Object.value,Sheets("ProductenOverzicht").Range("AF2:AS45"),2,FALSE)*"hoeveelheid"

Of:

waarde = Worksheetfunction.HLookUp(ComboBoxprijslijst.value,Sheets("ProductenOverzicht").Range("AF2:AS45"),2,FALSE)*"hoeveelheid"

 

[Warme bakkertje]

Of

waarde = [ProductenOverzicht!AF2:AS45].Find(ComboBoxprijslijst.Value, , xlValues, xlWhole) * hoeveelheid

Met de bijkomende vraag waar je hoeveelheid haalt, want nu wil je vermenigvuldigen met een String en dat kan niet.

 

[Dmar]

Ik had het even tussen aanhalingstekens gezet voor de duidelijk, het is geen string.
Tevens doen beide het niet met errorcode 1004: "Unable to get the HLookup property of the WorksheetFunction class"

 

[HSV]

Maak even een Excelbestandje als voorbeeld als je wil.

 

[Warme bakkertje]

En wat met mijn oplossing ? Met nog steeds de vraag waar Hoeveelheid vandaan komt ????

 

[Dmar]

Hier enkele screens die het hopelijk verhelderen. Ik zal tevens het gehele verhaal kort toelichten.

Men dient hierbij een prijslijst te kiezen. Aan deze prijslijst staan verscheidene producten gekoppeld, met een aparte prijs voor elke prijslijst (Staan in de eerder genoemde range). Ik wil in de form berekenen wat de kosten zullen zijn, hierbij moet dus voor elk product worden gekeken welke prijs van toepassing is door middel van Horizontaal Zoeken in de tabel. Daarna vermenigvuldigd met het aantal en dat voor alle producten bij elkaar geteld.

Hopelijk weten jullie zo meer.

 

[HSV]

Ik kan er niets mee; misschien @Rudi.

Ik heb geen zin in nabootsing; als bv. je combobox een ander naam heeft gaat het weer in de fout.
Hierdoor blijf je gissen.

 

[Dmar]

Ik kan er niets mee; misschien @Rudi.

Ik heb geen zin in nabootsing; als bv. je combobox een ander naam heeft gaat het weer in de fout.
Hierdoor blijf je gissen.

Dat is geen probleem, deze namen blijven vast.

 

[HSV]

En de naam van de combobox is: ComboBoxprijslijst ????

 

[Dmar]

En de naam van de combobox is: ComboBoxprijslijst ????

Yep. Hij haalt de waardes hiervan uit een lijst d.m.v validatie

 

[Warme bakkertje]

Een voorbeeldbestand is hier toch wel op z'n plaats denk ik. Daardoor krijgen we een idee van de opbouw van je userform en de opbouw van je tabel zodat we een idee krijgen op welke manier de zoekacties georganiseerd worden. Zet er desnoods dummygegevens in als je je echte gegevens hier niet kwijt wil.

 

[Dmar]

Ik ben bang dat dit helaas niet mogelijk is. In de form en alles daarom heen staat gevoelige informatie wat niet zo 1-2-3 te vervangen is door dummydata. Als het jullie niet lukt, zal ik het internet verder moeten afzoeken. Helaas is hier weinig over te vinden, vandaar mijn vraag hier.

Het probleem lijkt vrij simpel: Er moet horizontaal worden gezocht: 1) zoekterm staat in een ComboBox in form. 2) Range staat in een sheet
Het getal wat daaruit komt, moet mee worden gerekent.

 

[Dmar]

Of

waarde = [ProductenOverzicht!AF2:AS45].Find(ComboBoxprijslijst.Value, , xlValues, xlWhole) * hoeveelheid

Met de bijkomende vraag waar je hoeveelheid haalt, want nu wil je vermenigvuldigen met een String en dat kan niet.

Wat betreft jouw formule: Hij geeft de inhoud van de ComboBox weer, hij zoekt hierbij niet de waarde die hierbij hoort weer.

 

[HSV]

waarde = [ProductenOverzicht!AF2:AS45].Find(ComboBoxprijslijst.Value, , xlValues, xlWhole)[COLOR="red"].Offset(1)[/COLOR] * hoeveelheid

 

[Dmar]

Ik heb geen idee waarom, maar opeens deed hij het. Voor mensen die dit probleem ook hebben: gebruikte code:

Application.WorksheetFunction.HLookup(ComboBox1.Value, Sheets("Sheet1").Range("A:Z"), 2, False)

 

[HSV]

En de naam van de combobox is: ComboBoxprijslijst ????

Yep. Hij haalt de waardes hiervan uit een lijst d.m.v validatie

Ik heb geen idee waarom, maar opeens deed hij het. Voor mensen die dit probleem ook hebben: gebruikte code:

Application.WorksheetFunction.HLookup([COLOR="red"]ComboBox1.Value[/COLOR], Sheets("Sheet1").Range("A:Z"), 2, False)

Knap van je om ons zolang voor de gek te houden. :evil:

 

[Dmar]

Nee, ik heb de namen aangepast voor andere mensen die dit lezen, anders snappen ze het wellicht niet

 

[HSV]

Ik ook niet meer.
Succes.