|
So, danke für eure Zeit und Hilfe.
Das Problem ist gelöst. Ursprünglich war der Fehler Code 1004, also der der auf einen fehlenden Datensatz hinweist. Auf der Suche nach der Lösung habe ich weiter Fehler eingebaut, unteranderem auch die falsche Dateiendung ".xlms". Na ja, auf jeden Fall führt der folgende Code das Programm so aus, wie von mir vorgesehen:
Workbooks("Workliste Einzeiler.xlsm").Sheets("data").Cells(1, 7) = "LastWeek"
For x = 2 To IntLastAktiv
' Hier entseht wohl der Fehler
On Error Resume Next
Workbooks("Workliste Einzeiler.xlsm").Sheets("data").Cells(x, 7) = Application.WorksheetFunction.VLookup(Workbooks("Workliste Einzeiler.xlsm").Sheets("Data").Cells(x, 3).Value, Workbooks("SA021.xlsm").Sheets(2).Range("C:Q"), 15, False)
If Err.Number = 1004 Then
Workbooks("Workliste Einzeiler.xlsm").Sheets("data").Cells(x, 7) = "NV"
End If
Next x
|