Guten Morgen Werner,
vielen Dank, ich habe es gerade getestet und jetzt funktionert es.
Ich habe allerdings noch eine kurze Verständnisfrage: Ich dachte, dass ich diesen Fehler, dass es den gesuchten Wert in dem Ordner in dem gesucht wird, mit dem Hinweiss - On Error Resume Next - behebe, dass ich direkt nach der If-Funktion eingefügt habe.
If (.Cells(lZeile, 4) <> "") And Not (.Cells(lZeile, 1) = "Nº Artículo") Then
.Cells(lZeile, 13) = WorksheetFunction.VLookup(.Cells(lZeile, 1) _
, Workbooks("Articulos_Sustituo_Fecha_ret_170828.xlsm").Worksheets("Export").Range("A:E"), 3, False)
On Error Resume Next
End If
Vielleicht könntest du mir das noch kurz erklären? Danke schön!
Grüsse,
Kerstin
|