Public Sub Dateischreiben()
 
        Dim xlApp As Excel.Application
        Dim xlMappe As Excel.Workbook
        Dim xlBlatt As Excel.Worksheet
        Dim xlZelle As Excel.Range
        Dim intZeilen As Integer
 
        xlApp = New Excel.Application
        xlApp.Visible = False
        xlMappe = xlApp.Workbooks.Open("C:\blutWetre.xls")'HEIR HACKS!!!!
        xlBlatt = xlMappe.Worksheets(1)
        xlZelle = xlBlatt.Range("A1")
        intZeilen = xlZelle.CurrentRegion.Rows.Count
        xlZelle.Offset(intZeilen, 0).Value = intZeilen
        xlZelle.Offset(intZeilen, 1).Value = Today()
        xlZelle.Offset(intZeilen, 2).Value = Form1.bzBox.Text
        xlZelle.Offset(intZeilen, 3).Value = Form1.beBox.Text
        xlZelle.Offset(intZeilen, 4).Value = Form1.bolBox.Text
        xlZelle.Offset(intZeilen, 5).Value = Form1.basBox.Text
 
        xlMappe.Save()
        xlMappe.Close()
        xlApp.Quit()
    End Sub