Hallo Hans,
ich hätte Formular benutzt
Target.Offset(0, 1).Formula = _
"= [VLOOKUP(" & Target.Offset(0, -3)& ", 'Testtabelle'!$B$3:$D$28, 3, 0)]"
falls Du den Wert reinschreibn wills, vermute ich erkennt er nicht die Tabelle da die nicht mit Worksheets angebeben wurde und Range fehlt da auch.
Gruß Hajo