On Error GoTo Ende
Dim lngMin As Long
Dim lngStd As Long
Dim lngTag As Long
Dim RestTag As Long
Dim Geliefert As String
Dim WunschDatum As String
Dim TransferDatum As String
Dim Dif1 As String
Dim Dif2 As String
Dim objXLApp As Object
Dim i As Long
Dim Testos As Long
Dim B As String
 
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = False
    objXLApp.EnableEvents = True
    objXLApp.Workbooks.Open ExcelPfad
  i = 2
Testos = MSHFlexGrid1.Rows + 1
ProgressBar2.Max = Testos + 1
ProgressBar2.Min = 0
ProgressBar2.Value = 0
Do While i <> Testos
 
Geliefert = CStr(PPSTime.MSHFlexGrid1.TextMatrix(i, 66))
WunschDatum = CStr(PPSTime.MSHFlexGrid1.TextMatrix(i, 7))
TransferDatum = CStr(PPSTime.MSHFlexGrid1.TextMatrix(i, 5))
If (Geliefert <> "") And (WunschDatum <> "") And (TransferDatum <> "") Then
' Zeit-Differenz in Minuten
lngMin = DateDiff("n", CDate(TransferDatum), _
  CDate(Geliefert))
lngTag = lngMin / 1440
RestTag = lngMin Mod 1440
lngStd = RestTag / 60
lngMin = RestTag Mod 60
Dif1 = lngTag & ":" & lngStd & ":" & lngMin
lngMin = DateDiff("n", CDate(WunschDatum), _
  CDate(Geliefert))
lngTag = lngMin / 1440
RestTag = lngMin Mod 1440
lngStd = RestTag / 60
lngMin = RestTag Mod 60
Dif2 = lngTag & ":" & lngStd & ":" & lngMin
Else
Dif1 = ""
Dif2 = ""
End If
 
        B = "A" & i
objXLApp.Worksheets(1).Range(B) = MSHFlexGrid1.TextMatrix(i, 2)
        B = "B" & i
objXLApp.Worksheets(1).Range(B) = MSHFlexGrid1.TextMatrix(i, 22)
        B = "C" & i
objXLApp.Worksheets(1).Range(B) = MSHFlexGrid1.TextMatrix(i, 5)
        B = "D" & i
objXLApp.Worksheets(1).Range(B) = MSHFlexGrid1.TextMatrix(i, 7)
        B = "E" & i
objXLApp.Worksheets(1).Range(B) = MSHFlexGrid1.TextMatrix(i, 66)
        B = "F" & i
objXLApp.Worksheets(1).Range(B) = Dif1
        B = "G" & i
objXLApp.Worksheets(1).Range(B) = Dif2
ProgressBar2.Value = i
i = i + 1
DoEvents
Loop
  objXLApp.ActiveWorkbook.Close savechanges:=True
  objXLApp.Quit
  Dim lngHWnd As Long
  Set objXLApp = Nothing

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD