Dim xlApp As Excel.Application
                Dim xlMappe As Excel.Workbook
                Dim xlBlatt As Excel.Worksheet
                Dim xlZelle As Excel.Range
 
                xlApp = New Excel.Application
                xlApp.Visible = False
                xlMappe = _
                xlApp.Workbooks.Open(Application.StartupPath & "\test.xls")
                xlBlatt = xlMappe.Worksheets(1)
                xlZelle = xlBlatt.Range("A1")
                xlZelle.Offset(0, 0).Value = "Test" & datum.Month & "." & _
                  datum.Year
                xlZelle.Offset(0, 0).Font.Bold = True
                xlZelle.Offset(0, 0).Font.Size = 16
......
 
 
xlMappe.Save()
                xlMappe.Close()
                xlApp.Quit()
 
                xlZelle = Nothing
                xlBlatt = Nothing
                xlMappe = Nothing
                xlApp = Nothing