Public Sub Excel_schliessen()
 
        'Warnmeldungen einschalten
        xlsProgramm.DisplayAlerts = True
 
        'Excel Beenden
        xlsProgramm.Quit()
 
    End Sub

        'Warnmeldungen ausschalten
        objXls.DisplayAlerts = False
 
        'Excel Beenden
        objXls.Workbooks.Close()
        Application.DoEvents()
        objXls.Quit()
 
        xlsWS = Nothing
        objXls = Nothing