Dim objExcel As Excel.Application
    Dim objWorksheet As Worksheet
    Dim i As Integer
    'Objekt zuweisen
    Set objExcel = New Excel.Application
    objExcel.Visible = True
    'Neues Workbook zufügen
    Workbooks.Add
 
    'Auf das erste Blatt setzen
    Set objWorksheet = Sheets(1)
    'Namen setzen
    objWorksheet.name = "Daten"
 
    'Überschriften setzen
    objWorksheet.Cells(1, 1) = "Datum:"
    objWorksheet.Cells(1, 2) = "Schicht:"
    objWorksheet.Cells(1, 3) = "KW:"
    objWorksheet.Range("A1:C1").Select
    Selection.Font.Bold = True
 
 
    Set objWorksheet = Nothing
   Set objExcel = Nothing