|
Hallo
ich versuche gerade einen SVerweis per Vba zu programmieren. Allerding klappt es leider noch nicht. Die Formel für den S-Verweis ganz normal sieht folgendermaßen aus:
=SVERWEIS(A2;'C:\Users\Caro\Desktop\[Daten.xls]Auswahl'!$A$1:$C$50;3;FALSCH)
Nun soll er den S-Verweis für alle werte in Splate A durchführen, die Suchmatrix in der anderen Datei bleibt die gleiche. Die werte sollen dann in Spalte L eingetragen werden. Also gesuchter Wert zu A2 in Ls usw.
Anbei mal mein Versuch, der aber leider überhaupt nicht funktioniert. Ich hatte das mal versucht mit dem Pfad und dann Workbook als Datei zu definieren, damit das ganze kürzer wird, muss auch nicht sein, dachte es wäre vielleicht schöner.
Aber mit der Formel vom SVerweis komm ich gar nich zurück, ich weiß auch das die $-Zeichen für festen Zellbezug eigentlich nicht richtig sind, aber weiß leider nicht wie es richitg geht.
Sub Sverweis()
'
Dim Datei As String
Dim sPfad As String
Dim rng As Range
Dim ab As Long
Datei = "Daten.xls"
sPfad = "C:\Users\Caro\Desktop"
ab = 2
lr = Cells(Rows.Count, "A").End(xlUp).Row
For rng = ab To lr
Cells(rng, "L").Value = Formula.WorksheetFunction.VLookup(Range(rng, "A"), sPfad, Datei, "Auswahl",$A$1:$K$556, 8, False)
End Sub
Hoffe mir kann jemand helfen!
|