Cijfers omzetten in Tijden

[pacaskurban]

Hallo allemaal,

Ik werk bij een mobiliteitsbureau waar excel gebruikt word. Ik ben nu bezig de productiviteit in kaart te brengen van onze werknemers. Nu hebben mijn voorgangers de tijd in een raar formaat in de cellen geplaatst, ik moet alles converteren naar tijdnotatie zodat ik gewerkte uren kan uitrekenen en dat uiteindelijk verticaal zoeken met lijsten uit ons verloningssysteem. Heeft iemand de gouden tip voor mij hoe ik automatisch een hele rij om kan zetten van cijfers (600 moet 6:00 worden 1500 moet 15:00 worden). Ik kan geen voorbeeld uploaden op de een of andere manier. Als iemand een voorbeeld wil zien wat ik bedoel kan me mailen op zorgann@gmail.com.

Vriendelijke groet,

Pascal

 

[Cobbe]

Je kan je bestand hier stallen: http://www.mijnbestand.nl/

Vergeet wel niet de link te posten.

 

[pasan]

een voorbeeld met fictieve gegevens kun je toch hier gewoon neer zetten, als het maar duidelijk is in welke rij deze getallen staan en hoe deze getallen er uit zien.

 

[pacaskurban]

http://www.mijnbestand.nl/Bestand-ZFUCGSV3TXBL.xls

hierbij de lijst!

Bedankt voor de hulp alvast!

 

[HSV]

In F2, en doorvoeren.

 =ALS(D2>E2;SUBSTITUEREN(TEKST((2400-D2+E2)/100;"0,00");",";":");SUBSTITUEREN(TEKST(E2/100;"0,00");",";":")-SUBSTITUEREN(TEKST(D2/100;"0,00");",";":"))

 

[sylvester-ponte]

Bekijk bijlage getal naar tijd.xls
hier probeerseltje met vba dat maakt de formule korter de vba formule zet alleen het getal om in tijd.
als je de formule wil gebruiken in je eigen bestand,
dan moet je hem in je eigen bestand (in je reeds gemaakte module) plakken.

 

[pasan]

Zo zie je maar dat een voorbeeld plaatsen meer duidelijkheid verschaft, want je uitleg ging over rijen maar je gegevens die je aan wilt passen staan in kolommen.
Selecteer in de kolom die je wil aanpassen een cel en laat deze code een keer lopen.
Deze code plaats je in een module

Sub tijd()
 For Each it In Columns(ActiveCell.Column).SpecialCells(xlCellTypeConstants)
  If IsNumeric(it) Then
   If Not it.Text Like "*:*" Then
     totaal = IIf(Left(it, Len(it) - 2) = "", "00" & ":" & Right(it, 2), Left(it, Len(it) - 2) & ":" & Right(it, 2))
     it.Cells = totaal
   End If
  End If
 Next
End Sub

 

[pacaskurban]

Dank jullie allemaal voor het meedenken, zoals je kan zien werk ik nog niet heeel erg lang met excel. Deze oplossing met deze macro helpt me perfect!

 

[pacaskurban]

Okay nog 1 vraag ik weet niet of ik hier een ander topic voor moet maken, maar die negatieve tijden (nachtdiensten) kan ik die #### omzetten in een totaal?

http://www.mijnbestand.nl/Bestand-3JM4PFACR7ZY.xls

 

[pasan]

in kolom F

=ALS(D46>E46;(1-D46)+E46;E46-D46)

Deze formule in rij 46 plaatsen en daarna naar boven en naar beneden door trekken

 

[pacaskurban]

En wat nu als de tijden in het orgineel in een andere kolom staan? Wat moet ik dan aanpassen?

 

[pasan]

De letters D en E staan voor de kolommen, begintijd en eindtijd, pas deze letters aan

 

[anton44]

Vraag opgelost ? Wil je deze dan als zodanig markeren.
m.vr.gr.