Dim objXL As Object
Dim objActiveWkb As Object
 
'ExcelArbeitsmappe Öffnen
Set objXL = CreateObject("Excel.Application")
 
objXL.Application.Workbooks.Add
Set objActiveWkb = objXL.Application.ActiveWorkbook
 
 
''Überschriften eintragen
With objActiveWkb
    .Worksheets(1).Cells(1, 1) = "Firma"
    .Worksheets(1).Cells(1, 2) = "Abteilung"
End With
objXL.Application.Calculate
objXL.Visible = True