Die Differenzen werden auch nach diversen Änderungen dieses Teils im Code nicht dargestellt. vorallem im negativen. Es steht dort je nach Veränderung des Codes #WERT! oder hh:mm ( mit absurden Werten) oder ########. Auch mit Ausgabe als Text war ich nicht erfolgreich. hat jemand eine Lösung?

' Differenz Monat in Dezimal Stunden, inkl. negativ
ws.Cells(zeile + 2, 6) = "Differenz Monat"
ws.Cells(zeile + 2, 7).Formula = "=(G" & zeile + 1 & "-G" & zeile & ")*24"
ws.Cells(zeile + 2, 7).NumberFormat = "0.00"

' Kumulierte Differenz fortlaufend in Dezimal Stunden
ws.Cells(zeile + 3, 6) = "Kumulierte Differenz"
If uebertrag = "" Then
ws.Cells(zeile + 3, 7).Formula = "=G" & zeile + 2
Else
ws.Cells(zeile + 3, 7).Formula = "=" & uebertrag & "+G" & zeile + 2
End If
ws.Cells(zeile + 3, 7).NumberFormat = "0.00"

uebertrag = "'" & ws.Name & "'!G" & zeile + 3