Dim
Zelle
As
Range, Bereich
As
Range
Set
Bereich = Range(Cells(2, 6), Cells(letzteZeileSchleife, 6))
For
Each
Zelle
In
Bereich
Zelle = Application.VLookup(Range(Cells(2, 7), Cells(letzteZeileSchleife, 7)), Sheets(
"Datenblatt"
).[A2:I60000], 2,
False
)
Next
Zelle
For
Each
Zelle
In
Bereich
If
Zelle = CVErr(xlErrNA)
Then
Zelle = Application.VLookup(Range(Cells(2, 5), Cells(letzteZeileSchleife, 5)), Sheets(
"Datenblatt"
).[A2:I60000], 2,
False
)
End
If
Next
Zelle