habe dieses Makro aus einem Forum. Ein Problem: Durch die If funktion am Anfang kann ich 0:00 Uhr nicht benutzen. Benötige aber 0:00 Uhr. Kann ich irgendwie sagen, das wenn die Zelle leer ist, das er dann die Funktion beenden soll? "" geht irgendwie auch nicht. Bekomme dann den Fehler #WERT. Was kann ich machen?
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