Option Explicit
Private ExcelApp As Excel.Application
Private ExcelWBk As Excel.Workbook
Private ExcelWS As Excel.Worksheet
 
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Visible = False
    Set ExcelWBk = ExcelApp.Workbooks.Add
    Set ExcelWS = ExcelWBk.Worksheets.Add
 
ExcelWS.Cells(1, 1) = intWert1 'Daten in Zelle schreiben
 
'Felder formatieren
   ExcelWS.Range("A1:E10").NumberFormat = "0.00"
 
'speichern der Daten
    ExcelWBk.SaveAs strExcelPfadDatei
 
'Excel schliessen
    ExcelWBk.Close
    ExcelApp.Quit
    Set ExcelApp = Nothing