Dim oExcel As Object
        Dim oWorkb As Object
        Dim osheet As Object
 
        oExcel = CreateObject("Excel.Application")
        objXlsx.Visible = False
        xlsxWS = objXlsx.ActiveSheet
        xlsxWS.Range("c4").Value = cb_Name.Text
        xlsxWS.Range("c6").Value = DTP_Datum_Vom.Text
        xlsxWS.Range("c8").Value = DTP_Datum_Bis.Text
        xlsxWS.Range("c10").Value = txt_Tage.Text
  Me.m_Drucken.Enabled = True