Hall Torsten,
danke erstmal für deine Hilfe hat mir erstmal ein bisschen weitergeholfen. Habe es nun ausprobiert und bei mir funktioniert es leider nicht.
1 2 3 4 | Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = Application.VLookup(Range(Cells(2, 7), Cells(letzteZeileSchleife, 7)), Sheets( "Datenblatt" ).[A2:I60000], 2, False )
If Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = "#NV" Then
Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = Application.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets( "Datenblatt" ).[A2:I60000], 2, False )
End If
|
So sieht mein Code aus. habe es auch mit der leeren Zelle probiert, so wie in deinem Beispiel aber auch das funktioniert leider nicht. Die Meldung ist:
Laufzeitfehler '13'
Typen unverträglich
Kann es sein, dass es an der Auswahl einer Range, statt einzelner Zellen liegt?
|