Hallo Kerstin,
dann gibt es deinen Suchbegriff aus der Zelle .Cells(lZeile, 1) in der Datei Workbooks("Articulos_Sustituo_Fecha_ret_170828.xlsm") im Blatt Worksheets("Export") in der Spalte A nicht.
Du suchts mit dem SVERWEIS den Begriff aus der Zelle . Cells(lZeile, 1) in der Spalte A der Datei Workbooks("Articulos_Sustituo_Fecha_ret_170828.xlsm") im Blatt Worksheets("Export"). Wenn dieser Suchbegriff in der Spalte A nicht vorhanden ist, dann wird der Fehler 1004 ausgegeben.
Hier dein geänderter Code mit Fehlerbehandlung:
Sub intro_sust()
Dim lZeile As Long
Dim lColumn As Long, lRow As Long
Dim Rg As Range, myRange As Range, RgValues As Range
Dim x As Single
'search numbers (not empty not text)
With ActiveSheet
lRow = .Range([A1], .UsedRange).Rows.Count
lColumn = .Range([A1], .UsedRange).Columns.Count
Set myRange = .Range([A1], .Cells(lRow, lColumn))
For lZeile = 8 To 10 Step 1
If (.Cells(lZeile, 4) <> "") And Not (.Cells(lZeile, 1) = "Nº Artículo") Then
On Error Resume Next
If IsError(WorksheetFunction.VLookup(.Cells(lZeile, 1), Workbooks("Articulos_Sustituo_Fecha_ret_170828.xlsm") _
.Worksheets("Export").Range("A:E"), 3, False)) Then
.Cells(lZeile, 13) = "Suchbegriff nicht vorhanden."
On Error GoTo 0
Else
.Cells(lZeile, 13) = WorksheetFunction.VLookup(.Cells(lZeile, 1) _
, Workbooks("Articulos_Sustituo_Fecha_ret_170828.xlsm").Worksheets("Export").Range("A:E"), 3, False)
End If
End If
Next lZeile
End With
End Sub
Gruß Werner
|