|
Hallo zusammen,
ich habe folgendes Problem:
ich möchte einen dynamischen Sverweis per VBA aufbauen, da der Bereich von der Zeilenanzahl variabel ist. Der Ergebniswert steht jedoch immer in der gleichen Zeile.
Folgenden Cd habe ich aufgebaut:
1 2 3 4 5 6 7 8 9 10 11 12 | letztezeile1 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
letztespalte1 = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column
Sheets("export").Select
Range(Cells(7, 12), Cells(letztezeile, 12)).Select
For p = 7 To letztezeile
Cells(p, letztespalte).Select
On Error Resume Next
ActiveCell.Value = Application.WorksheetFunction.VLookup(ActiveCell.Offset(0, -10).Value, Worksheets("Clin Chem").Range(Cells(6, 2), Cells(letztezeile1, letztespalte1)), 11, False)
Next
|
Funktioniert nur leider nicht, da er mi keine Werte einträgt. Lasse ich das On Error Resume Next weg, bringt er mir einen Laufzeitfehler 1004: Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Hat jemand vlt eine Idee?
Vielen Dank im Voraus und viele Grüße,
Leon
|