Private Sub Button2_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button2.Click
 
  Dim oExcel As Object
  Dim oWorkb As Object
  Dim osheet As Object
 
  oExcel = CreateObject("Excel.Application")
  oExcel.Visible = False
 
  oWorkb = oExcel.Workbooks.Add
  osheet = oWorkb.ActiveSheet
  With oSheet
    .Range("c4").Value = cb_Name.Text
    .Range("c6").Value = DTP_Datum_Vom.Text
    .Range("c8").Value = DTP_Datum_Bis.Text
    .Range("c10").Value = txt_Tage.Text
    .Range("c12").Value = cb_Urlaubsanspruch.Text
    .Range("c13").Value = lbl_Urlaubstage.Text
    .Range("c15").Value = cb_Urlaubsanspruch2.Text
    .Range("c16").Value = lbl_Urlaubstage2.Text
    .Range("c18").Value = cb_Abbau.Text
    .Range("e19").Value = lbl_Resttage.Text
    .Range("e18").Value = lbl_Überstunden.Text
    .Range("d23").Value = cb_Vertretung.Text
    .Range("d25").Value = cb_Vertreter.Text
  End With
 
  Me.m_Drucken.Enabled = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de