Dynamic range for vlookup in Excel VBA

Question

I am looking for a possibility to set a dynamic range. The problem is that Excel does not accept the typing. Five rows of a matrix should be looked through for each a. The vlookup is working with a fixed range such as "E43:AT47" but not for a combined one.

        Range_Zeile_Start = 5 * a - 12
        Range_Zeile_End = 5 * a - 8
        Range_Count = "R" & Range_Zeile_Start & "C5:R" & Range_Zeile_End & "C46"

        Fahrzeit_kk = Application.WorksheetFunction.VLookup(Cells(1, b).Value, Range_Count, 42, False)

Answer 1

You need to set-up your Range correct.

See code below:

Dim VlookRng As Range

Range_Zeile_Start = 5 * a - 12
Range_Zeile_End = 5 * a - 8

' set up the Range for the Vlookup
Set VlookRng = Range(Cells(Range_Zeile_Start, 5), Cells(Range_Zeile_End, 46))
Fahrzeit_kk = Application.WorksheetFunction.VLookup(Cells(1, b).value, VlookRng, 42, False)