mit dieser Formel, die ich aus dem Forum kopiert habe, berechne ich die Zeit von zwi Zellen. Z. B. von 12:00 - 14:00 Uhr = 2:00 STD. Wenn ich aber eingebe von 15:00 - 0:00 Uhr wird nichts berechnet und er gibt mir 0:00 Std
an. Warum?
Function AZ(Beginn As Date, Ende As Date)
If Beginn = 0 Or Ende = 0 Then Exit Function
Application.Volatile
If Beginn < Ende Then
Select Case Ende - Beginn
Case Is <= CDate("5:59")
AZ = Ende - Beginn
Case Is <= CDate("8:59")
AZ = Ende - Beginn - CDate("0:30")
Case Else
AZ = Ende - Beginn - CDate("1:00")
End Select
Else
Select Case 1 - Beginn + Ende
Case Is <= CDate("5:59")
AZ = 1 - Beginn + Ende
Case Is <= CDate("8:59")
AZ = 1 - Beginn + Ende - CDate("0:30")
Case Else
AZ = 1 - Beginn + Ende - CDate("1:00")
End Select
End If
End Function
Thanks a lot
Pedro