Vielen Dank im Voraus für eure Hilfe!
gruss,
Valentin
Sub Test()
Dim lR%, i%
lR = Cells(Rows.Count, 2).End(xlUp).Row
Dim a$
For i = lR To 1 Step -1
a = Cells(i, 2).Value
If Left(a, 1) = " " Then Cells(i, 30) = Application.WorksheetFunction.VLookup("& a &", Worksheets("datos").Columns("b:v"), 10, False)
Next i
End Sub