Hallo Sabrina,
da ich deine Funktion leider nicht auseinander gebröselt bekomme, wende ich mich deinem tatsächlichen Problem einmal zu.
Du hattest als Vorschlag Cells(2, 2) = Application.WorksheetFunction.VLookup(A1, Range("B2:C15"), 2, False) geschreiben, jedoch den Einwand gebracht, dass du damit das Ergebnis in eine Zelle schreibst. Das hast du grundsätzlich richtig erkannt, aber was hältst du davon anstatt Cells(2, 2) eine Variable als Ziel zu nennen:
Dim ve as Long
ve = Application.WorksheetFunction.VLookup(A1, Range("B2:C15"), 2, False)
Zur Sicherheit kannst du dir danach auch noch eine msgbox ve anzeigen lassen, dass dir das Ergebnis bekannt gibt.
VG
Micha
|