|
Hallo VBA Forum,
habe ein Problem mit dem SVERWEIS. Habe momentan 2 VLOOKUPs drin, der zweite geht allerdings nicht (wieso auch immer):
FOLGENDES FUNKTIONIERT:
For i = 2 To lr
pasterange = "H" & i
If Worksheets("upload").Cells(i, 4) = "" Then GoTo line1
profitcenter = Application.WorksheetFunction.VLookup(Worksheets("Upload").Cells(i, 4), Worksheets("PrftCntrAbleitung").Range("A2:B5535"), 2, 0)
Worksheets("Upload").Range(pasterange).Value = profitcenter 'Ergebnis des SVERWEIS (profitcenter) wird in Zelle "H"i (zähler) geschrieben
line1:
Next i
<strong>FOLGENDES FUNKTIONIERT NICHT:</strong>
quelle.Range("P:P").Copy
Worksheets("upload").Range("L:L").PasteSpecial (xlPasteValues)
For i = 1634 To lr
pasterange = "L" & i
If Worksheets("KundenMapping").Cells(i, 16) = "" Then GoTo line2
k<em>undenNR = Application.WorksheetFunction.VLookup(Worksheets("Upload").Cells(i, 16), _
Worksheets("KundenMapping").Range("A2:B4000"), 2, 0) </em> <---- HIER KOMMT DER RUNTIME ERROR
Worksheets("Upload").Range(pasterange).Value = kundenNR
Der Witz ist, für mich sieht der funktionierende und der nicht-funktionierende Teil ziemlich gleich aus.
Meine Vermutung wäre Formatierungen, habe da auch rumprobiert aber leider ohne Erfolg.
Habe auch von False auf True gestellt um auszuschließen, dass es nicht am nicht Vorhandensein eines zugehörigen Wertes liegt.
Bin gerade echt am verzweifeln. Vielen Dank im Voraus!
Gruß
Marco
|