Datumsformat wird nicht richtig übernommen

while $eintrag <> ""
$sFormat = "TT.MM.JJJJ hh:mm:ss" ;Format String tells _ExcelNumberFormat to make it a $ currency
_ExcelNumberFormat($oBook2, $sFormat, 7,7,7,20) ;Start on Row 1, Start on Column 1, End on Row 5, End on Column 5
$eintrag = _ExcelReadCell($oBook1,$counter,1)

Select

Case $eintrag = string("Ist_PISA_WT25")
$wert = _ExcelReadCell($oBook1,$counter,2)
_ExcelWriteCell($obook2,$wert,7,7)

EndSelect

; #FUNCTION# ====================================================================================================================
; Name...........: _ExcelReadFormula
; Description ...: Read Formula from the active worksheet of the specified Excel object.
; Syntax.........: _ExcelReadFormula($oExcel, $sRangeOrRow[, $iColumn = 1])
; Parameters ....: $oExcel - Excel object opened by a preceding call to _ExcelBookOpen() or _ExcelBookNew()
; $sRangeOrRow - Either an A1 range, or an integer row number to read from if using R1C1
; $iColumn - The column to read from if using R1C1 (default = 1)
; Return values .: Success - Returns the data from the specified cell
; Failure - Returns 0 and sets @error on errors:
; |@error=1 - Specified object does not exist
; |@error=2 - Specified parameter is incorrect
; |@extended=0 - Row out of valid range
; |@extended=1 - Column out of valid range
; Author ........: SEO <locodarwin at yahoo dot com>
; Modified.......: litlmike, Bastel123
; Remarks .......: This function will only read one cell per call - if the specified range spans
; multiple cells, only the content of the top left cell will be returned.
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _ExcelReadFormula($oExcel, $sRangeOrRow, $iColumn = 1)
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
If Not StringRegExp($sRangeOrRow, "[A-Z,a-z]", 0) Then
If $sRangeOrRow < 1 Then Return SetError(2, 0, 0)
If $iColumn < 1 Then Return SetError(2, 1, 0)
Return $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Formula
Else
Return $oExcel.Activesheet.Range($sRangeOrRow).Formula
EndIf
EndFunc ;==>_ExcelReadFormula