Hier ein Ausschnitt von dem Code mit dem Problem...
''Übernahme Versanddaten Vortag
Dim ylAnw As Excel.Application
Set ylAnw = CreateObject("excel.application")
ylAnw.Visible = True
ylAnw.Workbooks.Open Filename:=ActiveWorkbook.Path & "\YYf4 Vortag.xls"
Range("N3").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(3,1/('[YYf4 Vortag.xls]Tabelle1'!R3C1:R201C1&'[YYf4 Vortag.xls]Tabelle1'!R3C2:R201C2&'[YYf4 Vortag.xls]Tabelle1'!R3C4:R201C4=RC[-13]&RC[-12]&RC[-10]),'[YYf4 Vortag.xls]Tabelle1'!R3C5:R201C5)"
Selection.AutoFill Destination:=Range("N3:N201"), Type:=xlFillDefault
Range("N3:N201").Select
ylAnw.Quit
Set ylAnw = Nothing