Hallo Thomas,
z.B. mit einer Abfrage, ob die Zelle leer ist. Wenn ja dann das VLOOKUP ausfuehren. Wenn nicht, passiert nichts:
If Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = "" Then
Range(Cells(2, 6), Cells(letzteZeileSchleife, 6)) = Application.VLookup(Range(Cells(2, 7), Cells(letzteZeileSchleife, 7)), Sheets("Datenblatt").[A2:U200], 2, False)
End If
Gruss Torsten
|