Hallo Detlev,
deine Tips sind klasse - die Funktion arbeitet jetzt besser, aber leider noch nicht richtig.
Probleme macht (ich habe die Werte einzeln eingesetzt) nur noch die Variable "auswahl".
Diese ist als String deklariert, dementsprechend steht als Suchmatrix durch Übersetzung der Variablen
Sheets("Spider").["A1:I3753"] statt Sheets("Spider").[A1:I3753]
For i = 2 To anzahlZielzeilen
inventarNrABC = Cells(i, 2).Value
If inventarNrABC <> "" And IsNumeric(inventarNrABC) Then
inventarNr = inventarNrABC * 1
End If
Worksheets(zielBlatt).Cells(i, zielSpalte).Value = Application.VLookup(inventarNr, Sheets(quellblatt).[auswahl], statusSpalte, False)
Next i
Wie muss ich "auswahl" deklarieren, damit auch dieses letze Teil des Puzzles passt?
VG Gunnar
|