Hallo zusammen,
ich stehe vor einem Problem, bei dem ich einfach nicht weiterkomme. Die Kurzfassung ist: ich moechte einen Sverweis in eine For-Next Schleife integrieren und komme bei der Formulierung des SVerweises nicht weiter.
Im Folgenden die genauere Beschreibung: In meinem Tabellenblatt "Processed_Source" habe ich Einträge, die von der Zeilenanzahl her varrieren können. In Spalte L wird überprüft, ob ein Wert vorhanden ist. Ist das nicht der Fall, so steht in Spalte L "N/A" und im Folgenden soll in Spalte H ein Sverweis eingefügt werden, der den Suchwert aus Spalte A nimmt und sich auf das Tabellenblatt "Input_fuelcard_list" bezieht. Normalerweise klappt das mit dem Sverweis reibungslos, aber ich weiss nicht, wie ich es formulieren muss, damit es in der For-Next Schleife läuft.
Bisher habe ich folgendes:
Set source = Worksheets("Processed_Source")
Set list = Worksheets("Input_fuelcard_list")
'Define last row in source Sheet
lastrow = source.Cells(Rows.Count, 1).End(xlUp).Row
For i = lastrow To 2 Step -1
If source.Cells(i, "L") Like "N/A" Then
End If
Next
Ich habe schon folgendes versucht, doch das hat nicht funktioniert:
source.Cells(i,"H").Formula = "=Vlookup(Cells(i,"A"),Input_fuelcard_list!C:H,5,0)"
Hier mein Beispiel:
https://www.herber.de/bbs/user/95665.xlsm
Vielen Dank im Voraus für Eure Hilfe,
Judith