Guten Morgen,

ich habe ein kleines Problem mit dem ich nicht weiterkomme.
Ich muss per Makro als sverweis daten aus einer anderen datei holen. 

Da die Datei variabel im Dateinamen ist habe ich Abfrage mit eingebaut. Dies klappt auch soweit.

Nur leider der verweis nicht. Hier ist der Code:

Sub Sverweis()
    Dim strZiel As String
    Dim strDatu As String
    Dim i As Integer
    Dim letzte_Zeile As Integer
    Dim strVerzeichn As String
    Dim varSpArr As Variant
    Dim intAnz As Integer
    strZiel = "C:Tets-Gesamtübersicht_Test Düsseldorf_"
    strDatu = InputBox(prompt:="Bitte ein Datum im Format: JJJJ.MM.TT eingeben.", Title:="Bitte Datum eingeben")
    strVerzeichn = strZiel & strDatu & ".xlsx"
    varSpArr = Array(2, 3, 25, 26, 27, 28, 31, 50, 51, 52, 53, 11, 12)
    Workbooks.Open strVerzeichn
    For i = 2 To letzte_Zeile
        For intAnz = 0 To 13
            Range("B" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:BA")), varSpArr(intAnz), False)
            Range("C" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), (Worksheets("RVG-Verfahren").Range("A:AA")), varSpArr(intAnz), False)
        Next intAnz
    Next i
    End Sub

Das Makro wird in Datei2 ausgeführt und soll dann die daten aus Tets-Gesamtübersicht_Test Düsseldorf holen die im blatt RVG-Verfahren stehen und in datei2 in dem blatt schrift. Verf. anhand der daten die in der spalte a stehen. Wenn ich also in datei 2 abcde eingebe und das makro ausführe solllen die nachfolgenden spalten mit den werten aus Tets-Gesamtübersicht_Test Düsseldorf gefüllt werden.

Habs zwar probiert aber kriege s nicht hin.

Office 2016

Hoffe ich habe es verständlich geschrieben.

Viele Grüße und Danke schonmal.

G.Fritz