getallen omzetten in tijdnotatie

[sjoepes]

Vanuit mijn ERP programma krijg ik een excel bestand waarin de tijden zo zijn weergegeven 155543 dit betekend 15:55:43 graag wil ik deze zo automatisch laten omzetten omdat ik tijdverschillen wil meten. Het gaat hier om een grote hoeveelheid data dus om handmatig daar ":" tussen te typen vergt heel veel werk. Is het mogelijk om met een macro of iets dergelijks automatisch de dubbele puntjes tussen de getallen te plaatsen zodat ik met tijden kan rekenen? Ik moet meerdere bestanden met een hele rij aan tijden om kunnen rekenen.
Of misschien heeft iemand wellicht een formule ervoor om met de getallen te rekenen?

Ik heb een klein voorbeeld geselecteerd uit het bestand.

Bekijk bijlage vb tijd.xlsx

 

[Cobbe]

=TIJDWAARDE(LINKS(A1;2)&":"&DEEL(A1;3;2)&":"&RECHTS(A1;2))

en de cel opmaken als tijd.

Je kan de berekening doen zonder eerst de gegevens om te zetten als je deze formule in je berekening meeneemt.

 

[snb]

Sub M_snb()
    [K2:K20] = [index(left(F2:F20,2)&":"&mid(F2:F20,3,2)&":"&right(F2:F20,2),)]
    [K2:K20].NumberFormat = "hh:mm:ss"
End Sub

 

[sjoepes]

perfect! het is gelukt.
heel erg bedankt

 

[sjoepes]

Volgende probleem
Ik zie dat het programma de uren met een enkel cijfer niet uitdraait met een 0 ervoor. Dus 84532 = 8:45:32. Met de huidige formule doet hij automatisch 2 tekens naar rechts de dubbele punt zetten. Bij de enkele uren klopt deze dus niet. Zoals in het voorbeeld te zien is.
Is er een mogelijkheid dat hij dus kijkt hoeveel tekens in het tijdvak staan en aan de hand daarvan kiest of de dubbele punt na 1 of 2 tekens wordt neergezet?

Groetjes,
Joey

Bekijk bijlage tijdnotatie.xlsx

 

[Cobbe]

Gebruik deze dan daarvoor:

=ALS(LENGTE(D33)=6;TIJDWAARDE(LINKS(D33;2)&":"&DEEL(D33;3;2)&":"&RECHTS(D33;2));TIJDWAARDE(LINKS(D33;1)&":"&DEEL(D33;2;2)&":"&RECHTS(D33;2)))

 

[sjoepes]

Dankjewel !

 

[VenA]

Of iets korter

=TIJD(LINKS(D33;LENGTE(D33)-4);DEEL(D33;LENGTE(D33)-3;2);RECHTS(D33;2))

 

[HSV]

=--tekst(d2;"00\:00\:00")