Ich stehe an folgendem Problem an:
In Spalte D habe ich eine ISIN-Nummer und in Spalte E eine Valorennummer.
Nun gibt es in Spalte E auch 5-stellige Kontonummern; in diesem Fall ist das zugehörige Feld in Spalte D leer. In diesem Fall möchte ich je nach Konto in Spalte D einen speziellen Code eintragen, der im 2-stelligen Bereich "KontoISIN" (gleiches Workbook) enthalten ist (Spalte 1 Konto, Spalte 2 spezieller Code).
Untenstehender Code funktioniert bei den 5-stelligen Kontonummern. Wenn jedoch ein Feld in Spalte D leer ist und in Spalte E eine Valorennummer eingetragen ist (> 5 Stellen), kommt ein Laufzeitfehler "Laufzeitfehler '1004': Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden".~f~
Kann mir jemand weiterhelfen?
Danke, Peter
~f~
zNr = 2
Do While zNr <= BW_Diff
If .Cells(zNr, 4) = "" And Len(.Cells(zNr, 4)) < 6 Then
.Cells(zNr, 4) = WorksheetFunction.VLookup(.Cells(zNr, 5), Range("KontoISIN"), 2, 0)
Else
End If
zNr = zNr + 1
Loop