Dim xlAnw As Object
    Dim xlMappe As Object
    Dim xlBlatt As Object
 
    Set xlAnw = CreateObject("Excel.Application")
    Set xlMappe = xlAnw.Workbooks.Open(App.Path & "\Daten\Quittung_leer.xls")
    Set xlBlatt = xlMappe.Worksheets(1)
 
    With xlBlatt
              .Application.dialogs(8).Show
    End With