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.
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?
|