Hallo Zusammen,
Ich hoffe mir kann hier jemand weiterhelfen. Ich habe ein Makro kopiert, dass bisher korrekt funktioniert hat und die Daten entsprechend angepasst und bekomme jetzt die Fehlermeldung - Laufzeitfehler '1004': Anwendung oder Fehler Objekt definiert.
Hier die Info des Makros:
Sub intro_sust()
Dim lZeile As Long
Dim Column As Single, Row As Long
Dim Rg As Range, myRange As Range, RgValues As Range
Dim x As Single
'search numbers (not empty not text)
With ActiveSheet
Row = Range([A1], .UsedRange).Rows.Count
Column = Range([A1], .UsedRange).Columns.Count
Set myRange = Range([A1], Cells(Row, Column))
End With
For lZeile = 8 To 10 Step 1
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
Next lZeile
End Sub
Das Excel in dem der Suchverweiss durchgeführt werden soll hat folgenden Namen: Articulos_Sustituo_Fecha_ret_170828.xlsm. Das Datenblatt indem die Daten sind - "Export".
Den Namen des Makros habe ich auch entsprechend angepasst.
Die Daten die automatisch eingefügt werden sollen sind Artikelcodes - z.B. 50123085.
Um das Makro zu testen habe ich im den Geltungsbereich eingeschränkt - auf zwei Zeilen.
Kann mir jemand sagen warum ich diese Fehlermeldung bekomme?
Ich hoffe mir kann hier jemand helfen.
|