Hallo Jörg,
leider verrätst du nicht, was falsch berechnet wird. Ich vermute, dass du Endgesamtzeit falsch erhältst, weil du eine eigenartige Art für ihre Berechnung gewählt hast, die ich allerdings nicht nachvollziehe (verzeihe, wenn ich dir Unrecht tue). Du verwendest irre lange Variablennamen!
Anstelle von
Do Until (sekGesEndZeit Mod 60 = 0)
sekGesEndZeit = sekGesEndZeit - 1
sekEndZeit = sekEndZeit + 1
Loop
vollMinEndZeit = sekGesEndZeit / 60
ActiveSheet.Cells(i, 5) = vollMinEndZeit
ActiveSheet.Cells(i, 6) = sekEndZeit
sollte ausreichen:
ActiveSheet.Cells(i, 5)=sekGesEndZeit\60 'Backslash! für Ganzzahlen
ActiveSheet.Cells(i, 6) = sekGesEndZeit-ActiveSheet.Cells(i, 5) * 60
Gruß
Holger
-
|