'Aufruf
Dim Erfolgreich as boolean    
Dim XLWorkbook As Excel.Workbook
Dim temp1 As Excel.Application
Set temp1 = CreateObject("Excel.Application")   
Set XL = CreateObject("Excel.Application")
 
temp1.Quit
Set temp1 = Nothing
 
XL.Visible = True
XL.ScreenUpdating = True
 
Set XLWorkbook = XL.Workbooks.Add("C:\Test.xlt")
XLWorkbook.SaveAs FileName:=App.Path & "Test1", FileFormat:=xlNormal, _
  Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
  CreateBackup:=False
 
'Aufruf der Funktion
 
Erfolgreich = XL.Run("'" & XLWorkbook.Name & "'!DieseArbeitsmappe.Aufruf", _
  Artikelnummer, Produkt)
 
msgbox Erfolgreich 'is immer False
 
 
 
'Funktion:
 
Public Function Fullen(Artikelnummer As String, Sondertext As String, Produkt _
  as string) As Boolean
 
Fullen = True
MsgBox Fullen 
 
end function

und noch sch?ne Gr??e von mir