tijd ingeven met : dubbel punt

[DJos1952]

hoi
Bekijk bijlage mindermobile.xlsm
ik weet niet of het juist is wat hier boven staat maar ik wil iets vragen over deze bijlage(als jullie iets zien)
als je in een cel een tijd wil plaatsen vb 7u30 is het dan steeds nodig dat je na het uur een dubbelpunt moet zetten(dus 7:30 om de juiste tijd in die cel te bekomen?
of kan dit ook op een andere manier? getalnotatie staat op tijd.
mvg
Jos

 

[OctaFish]

Ik denk dat je dat kan vergeten, of je moet het programmeren. Dat kost je ongetwijfeld meer tijd dan de gebruikers vertellen dat het toetsenbord is uitgerust met een gratis toetsje waarmee je een dubbele punt kunt typen, en/of 10.000 tijden kan intypen . De (eventuele) oplossing kost dus vele malen meer (tijd) dan het 'probleem'. Sommige dingen moet je accepteren. Al kun je, als je dan toch bezig bent, natuurlijk ook het probleem van mijn buurman oplossen: die heeft een hekel aan de letter 'e'. Dus wellicht kun je iets maken/bedenken waardoor hij nooit meer een 'e' hoeft te typen :d.

 

[popipipo]

Zelf gebruik ik altijd de autocorrectie
Ik heb daar ingesteld dan ++ wordt om gezet naar :
Twee keer de plus in tikken gaat supersnel.

 

[Senso]

B2 > 0700
Met hulpkolom in C2

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

 

[emields]

Maak het uzelf gemakkelijk en stel alles op 1 blad.

 

[Senso]

Is militair 0-24? Als ik 1200 ingeef krijg ik 00.00.00 dat is toch 's nachts?
Wat moet ik dan ingeven?

 

[edmoor]

Gebruik deze eens:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    Tijd = Format(Target.Value, "0000")
    Uur = Left(Tijd, 2)
    Minuut = Right(Tijd, 2)
    On Error Resume Next
    Target.Value = TimeValue(Uur & ":" & Minuut)
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

 

[snb]

Gebruik een validatielijst met geldige tijdstippen.
Gebruik een aparte cel voor uren, een voor minuten en 1 voor seconden.
Gebruik een ActiveX Combobox met geldige tijdstippen.

Zonder controle op validiteit van de invoer:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1:A10")) Is Nothing And Target <> "" Then
      Application.EnableEvents = False
      Target = Val(Target) & ":" & StrReverse(Val(StrReverse(Target)))
      Application.EnableEvents = True
   End If
End Sub

Overigens sluit ik me aan bij het commentaar van @Octafish.

 

[Senso]

Jammer, of het werkt niet in Excel 2007 of de VBA is niet goed. Er staan twee VBA codes in het document mogelijk dan niet goed afgestemd op elkaar. Als ik intik 234520 is 23 uur, 45 minuten en 20 seconden dan staat er 23:45:20. Tik ik in 2345 dan komt er 23:45:45 te staan.

en wat is dan de juiste tijdnotatie in die range? Staat nu op Aangepast uu:mm:ss

Bekijk bijlage Militaire notatie tijd_test.xlsm