WorksheetFunction VLookup
Hilfe
ich habe eine Schleife, bei der die WorksheetFunction VLookup genutzt werden soll. Es soll aus einem Workbook.Sheet(1) die Cells(i, 1) ausgelesen werden mittels Kst_Zeile = Cells(i, 1) und dann mittels WorksheetFunction VLookup in einem anderen xls-datei.Sheet(1) gesucht und den Wert aus der entsprechende Spalte im aktuellen Sheet eingefügt werden.
Der VBA Code sieht wie folgt aus (angenommen beide Workbooks wären geöffnet):
Do While Cells(i, 11) ""
Kst_Zeile = Cells(i, 1)
Cells(i, 2) = WorksheetFunction.VLookup(Kst_Zeile, PNR_KST.XLS.Sheet1.Range("A1:D200"), 4, True)
i = i + 1
Loop
So funktioniert das leider nicht, ich erhalte die Fehlermeldung "Object required (Error 424". Was mache ich falsch?
Besten Dank