Dim xl As Object, xlWb As Object
Dim rs As DAO.Recordset
z = ZielFile
Set xl = CreateObject("Excel.Application")
Set xlWb = xl.Workbooks.Open(z)
xl.Visible = True
Set rs = CurrentDb.OpenRecordset("select * from LagerListeDIB_Export")
xl.Workbooks(1).Worksheets("Tabelle1").Cells(8, 1).CopyFromRecordset rs
xlWb.Save
xlWb.Close
Set xlWb = Nothing
Set xl = Nothing
rs.Close
Set rs = Nothing