Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        objXlsx = CreateObject("Excel.Application")
        xlsxWS = objXlsx.Workbooks.Open(path)
 
 
        'Excel ist sichtbar
        objXlsx.Visible = True
        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
        xlsxWS.Range("c12").Value = cb_Urlaubsanspruch.Text
        xlsxWS.Range("c13").Value = lbl_Urlaubstage.Text
        xlsxWS.Range("c15").Value = cb_Urlaubsanspruch2.Text
        xlsxWS.Range("c16").Value = lbl_Urlaubstage2.Text
        xlsxWS.Range("c18").Value = cb_Abbau.Text
        xlsxWS.Range("e19").Value = lbl_Resttage.Text
        xlsxWS.Range("e18").Value = lbl_Überstunden.Text
        xlsxWS.Range("d23").Value = cb_Vertretung.Text
        xlsxWS.Range("d25").Value = cb_Vertreter.Text
 
Me.m_Drucken.Enabled = True
    End Sub