Rundung von Stundenbruchteilen
Stundenbruchteilen
In manchen Fällen ist es für mich wichtig, das Bruchteile von Stunden (kleiner 30 Minuten, größer 30 Minuten) gerundet werden.
Das "erledige" ich derzeit - beispielhaft - mit der folgenden Anweisung via VBA:
Stunden01 = WorksheetFunction.Sum([AI5-AH5] + [AK5-AJ5] + [AM5-AL5] + [AO5-AN5])
Range("AP5").Value = TimeSerial(Hour(Stunden01) - (Minute(Stunden01) größer= 30), 0, 0)
Hierbei handelt es sich nur um die Betrachtung eines einzelnen Tages. Mit anderen Worten muß ich diese Anweisung für jeden möglichen Kalendertag wiederholen. Für einen Monat wären das dann allein schon Stunden01, Stunden02,... Stunden31. Also insgesamt schon ein gewisser Aufwand bzw. eine schöne Quelle für Fehler.
Meine Frage ist nun einfach die, wie`s mir gelingen kann, diese Anweisung gleich in "einem Rutsch" für den gesammten Bereich (AP5:AP35) zu erledigen. Mir geht`s hierbei schlicht darum, mir unnötige Arbeit zu ersparen, bzw. Fehlerquellen auszuschließen, da ich inzwischen gezwungen bin, diese Rundungsvorschrift auf sehr viele Eingaben hin anzuwenden.
Hat da jemand eine Idee? Bestimmt...
Besten dank für Eure Hilfe.
Uwe