Hi,
ich probiere jetzt schon seit mehreren Tagen in VBA einen Sverweis hinzubekommen, allerdings kommt jedesmal der Fehler:
"Laufzeitfehler '1004':
Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden."
Ich suche schon seit ein paar Tagen in allemöglichen Foren um eine Lösung zu finden, allerdings wiedersprechen sich hier einige Dinge und beim Ausprobieren hat leider auch keine der Möglichkeiten funktioniert. Ich bekomme zwar immer einen Wert , allerdings immer 25 was falsch ist.
Hier ist der Code:
Range("C11").Select
i = 0
Do
i = i + 1
Loop Until ActiveCell.Offset(0, i) = ""
ActiveCell.Offset(0, i).Value = Application.WorksheetFunction.VLookup([B11], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(1, i).Value = Application.WorksheetFunction.VLookup([B12], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(2, i).Value = Application.WorksheetFunction.VLookup([B13], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(3, i).Value = Application.WorksheetFunction.VLookup([B14], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(4, i).Value = Application.WorksheetFunction.VLookup([B15], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(5, i).Value = Application.WorksheetFunction.VLookup([B16], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(6, i).Value = Application.WorksheetFunction.VLookup([B17], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(7, i).Value = Application.WorksheetFunction.VLookup([B18], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(8, i).Value = Application.WorksheetFunction.VLookup([B19], Sheets("Leistungen").[A2:B60], 2)
ActiveCell.Offset(9, i).Value = Application.WorksheetFunction.VLookup([B20], Sheets("Leistungen").[A2:B60], 2)
Vielen Dank schonmal im Voraus,
Fredy |