Nagy nehezen megtaláltam a megoldást. Kiderült, hogy ahhoz, hogy az óra értéket megtartsa 24 óra után is, formázáskor az óra (illetve angol hour) kezdőbetűjét szögletes zárójelbe kell tenni. Ennek megfelelően a munkaórák szubrutin végén levő két sort a következőképp írd át:

 

ez volt:

Cells(aktsor, céloszlopszám).NumberFormat = "@" ' ezzel lesz string a cellaformátum, …

Cells(aktsor, céloszlopszám).HorizontalAlignment = xlRight ' és jobbra pozícionáljuk

 

Ezek közül az első sor helyére írd a következőt:

 

Cells(aktsor, céloszlopszám).NumberFormat = "[h]:mm" ' ezzel lesz óra:perc a cellaformátum

a második sort pedig töröld ki, vagy egyszerűen írj az elejére egy aposztrofot (ez jelzi hogy ez nem programsor, csak megjegyzés)

 

És ha majd számolni akarsz ezekkel, akkor abban a cellában, ahova a képletet írod, a cella formátumát állítsd át egyénire, és formátumkódnak a [ó]:pp kódot írd!