tijden noteren versneld en deze optellen en dan het gemiddelde

[swimming]

hallo,

na wat uren zoeken op dit leuke forum kom ik er nog niet achter:

ik zoek een formule die het mogelijk moet maken tijd versneld in te vullen zoals>>> het getal invoeren 10166 moet worden omgezet naar 1 min en 1 sec en 66 honderste van sec. Als notatie 01.01.66. Dit mag in een cel naast de in te voeren tijd.

na dit moet ik alle tijden optellen en het gemiddelde kunnen bepalen. het kan zo zijn dat er dan uren bijkomen. 1uur en 56min en 30sec en 86honderste.

kortom hoe krijg ik dit voor elkaar

 

[Cobbe]

Deze formule kan een basis zijn voor uw werkblad.

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

Deze werkt echter enkel als er een 5-cijferig getal ingegeven wordt.

Cobbe

 

[swimming]

bijna goed

bedankt,Bekijk bijlage tijd.xlsx hij is bijna goed. maar er moet ook bijvoorbeeld 37:46 aankunnen

 

[richard1970]

Beste swimming,

Als vervolg op Cobbe: Wat is het minimum en wat is het maximum dat ingevoerd kan/zal worden?

Richard

 

[swimming]

hoi

minimaal 4 getallen en maximaal 6 getallen.
112534 = 11 min en 25 seconden en 34 honderste

 

[sylvester-ponte]

met honderdsten:

Function EigenWijzeTijd(T)
    Dim HonderdstenSeconde As Double, Sec As Double, Min As Double, Uren As Double
    HonderdstenSeconde = (T Mod 100) / (8640000)
    T = (T - T Mod 100) / 100
    Sec = (T Mod 100) / 86400
    T = (T - T Mod 100) / 100
    Min = (T Mod 100) / 1440
    T = (T - T Mod 100) / 100
    Uren = (T Mod 100) / 24
    EigenWijzeTijd = HonderdstenSeconde + Sec + Min + Uren
End Function

voorbeeld:Bekijk bijlage tijd1.xls
groet sylvester

 

[sylvester-ponte]

hoi nog even de opmaak aangepastBekijk bijlage tijd1.xls
groet

 

[swimming]

Ziet er super uit

maar hoe krijg de formule in mijn sheet geplaatst.

heb vroeger wel eens gewerkt met vba maar ben dit helemaal kwijt.

ik werk met 2007 Excel

 

[sylvester-ponte]

hallo swimming


copyeer de functie (het is gewoon tekst)

open het exel programma waarin je het wilt gebruiken

druk op alt F11 om de vba editor te openen.

ga naar ThisWorkBook (rechter muisknop)

module toevoegen

plakken

nu kun je de functie gebruiken zo als ieder andere exelfunctie

groet sylvester

ps kijk ook eens naar de celopmaak, want deze functie produceert alleen maar een getal.

 

[swimming]

het werkt netjes maar hoe blijft de formule actief? het mooiste is dat je alleen cijfers in kan vullen. en weer wissen zonder dat er iets verloren gaat.

 

[sylvester-ponte]

hoi Swimming

wat jij wil kan alleen met een macro

deze macro moet je toevoegen in je invulblad kijk maar in het voorbeeld, dan zie je waar hij moet komen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Interior.ColorIndex = 6 Then 'dat is kleur geel
        If IsNumeric(Target.Value) Then
            Application.EnableEvents = False
                Target.Value = EigenWijzeTijd(Target.Value)
            Application.EnableEvents = True
            Target.NumberFormat = "[h]:mm:ss.00"
        End If
    End If
End Sub

iedere cel die jij geel kleurt werkt nu als snelle tijd invoeg cel

probeer maar. maak een nieuwe cel geel en vul een getal in

Bekijk bijlage tijd4.xls

groet sylvester

 

[swimming]

op jouw blad gaat het super maar als ik de code invoeg in mijn sheet gaat het niet zit nu al uren te puzzelen snap er niks meer van.

 

[trucker10]

op jouw blad gaat het super maar als ik de code invoeg in mijn sheet gaat het niet zit nu al uren te puzzelen snap er niks meer van.

Na het invoeren van een change event macro , bestandje opslaan , afsluiten en terug openen , misschien ligt hier het probleempje .

 

[sylvester-ponte]

heb he de macro EigenWijzeTijd ook mee gekopieerd?

anders werkt het niet

stuur anders jouw niet werkende werkblad

groet