In einer Tabelle habe ich, ganz einfach eigentlich, Stunden, die auch mehrfach am Tag anfallen können, zu addieren. Je Tag sieht meine Eintragung in VBA dann so aus:
If Not Intersect(Target, [H8:I8,J8:K8,L8:M8,N8:O8]) Is Nothing Then
Me.[AO8] = WorksheetFunction.Sum([I8-H8] + [K8-J8] + [M8-L8] + [O8-N8])
End If
Nun stehe ich aber vor dem Problem, das die dann über Me.[AO8] ausgewiesene Summe zudem noch gerundet werden muß! Hier muß z.B. aus 15:30 zwingend 16:00 werden, oder z.B. aus 15:29 lediglich 15:00.
Wie also fange ich es an, Stunden via VBA runden zu können? Gut wäre es zudem, so sich die o.g. Anweisung ergänzen ließe.
Besten Dank im Voraus für eine funktionierende Lösung!
Uwe