dtmDate = Date
 
strMonth = Month(Date)
strDay = Day(Date)
strYear = Year(Date)
 
strFileName = "C:\1\" & strDay & "-" & strmonth & "-" & strYear & ".xls"
 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
 
Set objWorkbook = objExcel.Workbooks.Add()
 
 
objWorkbook.SaveAs(strFileName)
 
objExcel.Quit

  Dim xlApp As Microsoft.Office.Interop.Excel.Application
                Dim xlMappe As Microsoft.Office.Interop.Excel.Workbook
                Dim xlBlatt As Microsoft.Office.Interop.Excel.Worksheet
                Dim xlZelle As Microsoft.Office.Interop.Excel.Range
                xlApp = New Microsoft.Office.Interop.Excel.Application
                xlApp.Visible = False
                xlMappe = xlApp.Workbooks.Open(strfilename)
                xlBlatt = xlMappe.Worksheets(1)
                xlZelle = xlBlatt.Range("A1")
                xlZelle.Offset(0, 0).Value = "Aimetis In/Out Counter:"
                xlZelle.Offset(0, 0).Font.FontStyle = "lucida fax"
                xlZelle.Offset(0, 0).Font.Underline = True
                xlZelle.Offset(0, 0).Font.Bold = True
                xlZelle.Offset(0, 0).Font.Size = 12
                xlZelle.Offset(2, 0).Value = "Datum:"
                xlZelle.Offset(2, 0).Font.Bold = True
                MsgBox("a")' <-- als test eingefügt, alle par ausführungen wird 
                ' der code hier einfach übersprungen (die msgbox erscheint 
                ' nicht)
                xlZelle.Offset(2, 2).Value = "Count In:"
                xlZelle.Offset(2, 2).Font.Bold = True
                xlZelle.Offset(2, 3).Value = "Count Out:"
                xlZelle.Offset(2, 3).Font.Bold = True
                xlZelle.Offset(datum, 0).Value = "=HEUTE()"
                xlZelle.Offset(CIn, 2).Value = CountIn
                xlZelle.Offset(COut, 3).Value = CountOut
                xlMappe.Save()
                xlMappe.Close()
                xlApp = Nothing
                xlApp.Quit()