Warum funktioniert das nur in Celle nicht?
Ich habe mal die Eigenschaften des Range-Objekts in dr VBA-Hilfe von Excel nachgeschlagen und dort steht eine Formula-Eigenschaft.
Versuch mal
Me.Range("d1").Formula = "SVERWEIS(A1; [wisomaterial.xls]wisomat!A1:E20000;4)"