Verweis bzw. Sverweis in VBA (Userform) nutzen

Ich suche mit VERWEIS zugehörige Daten mit folgendem Trick und hole Sie mir so in meine userform.

in Zelle B17 steht folgende Formel:
=WENN(B16<>0;VERWEIS(B16;A2:B14);)

meine DAten stehen im Bereich:A2 bis B14
mein Suchkriterium ist in B16

um das Ergebnis im meine USerform zu bekommen gehe ich so vor:

Sub werkzeugunterhaltung()
Sheets("Tabellen").Activate
Range("B16").FormulaLocal = Me.Menge_1.Value
Me.WkU_1.Value = Range("B17").Value
End Sub

Das ganze was ich hierso beschrieben habe funktioniert zwar, gefällt mir aber nicht. Wer kann mir sagen wie meine Sub auszusehen hat, damit ich den Zwischenschritt über das Arbeitsblatt nicht machen muß?

Für Eure Hilfe bedanke ich mich im voraus.

Gruß Raik