AW: sry, deine Bsp.-mappe uebersehen
24.10.2021 10:41:34
hary
Moin
Hatte deine Bsp.-mappe uebersehen.
So sollte der Code das gewuenschte rausgeben.
Private Sub CommandButton1_Click()
Dim Zeit1 As Date, Zeit2 As Date, Zeit3 As Date
Dim lfmproh As Long '--?
Dim i As Integer
For i = 2 To 11
On Error GoTo Fehler
If Cells(i, 2).Value = 0 Then
Zeit1 = Cells(i, 3).Value
Zeit2 = Cells(i, 4).Value
'DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
'MsgBox DateDiff("n", Zeit1, Zeit2) 'n=Minuten, h=Stunden,s=Sekunden, d=Tage
Cells(i, 2).Value = DateDiff("n", TimeValue(Zeit1), TimeValue(Zeit2))
'Tag Wechsel ohne Datum
If Cells(i, 2).Value 600 Then
MsgBox i
Zeit3 = "18:00:00"
Cells(i, 2).Value = DateDiff("n", Zeit1, Zeit3)
Zeit3 = "6:00:00"
Cells(i, 2).Value = Cells(i, 2).Value + DateDiff("n", Zeit3, Zeit2)
End If 'getestet
'Korrektur bei Tages- und Wochenwechsel, obere tut es auch ohne Datum!
' If Cells(i, 2).Value > 600 And Cells(i, 2).Value 0 Then
MsgBox "Es ist ein Fehler aufgetreten bei " & i
Err.Number = 0
End If
End If
Next i
End Sub
ist 190 in B3 richtig?
gruss hary