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
|