Automatisch een dubbele punt toevoegen zodat 715 07:15 wordt

[bloopy]

Hoi allemaal,
Ik zoek me een ongeluk maar kan het nergens vinden en dus richt ik me op jullie kennis

Ik wil graag als ik bijvoorbeeld 0400 intyp in een cel (als voorbeeld A1) dat hij dan automatisch er een dubbele punt tussen smijt zodat er staat 04:00
en dat wil ik graag voor de hele kolom a.
dus 0100 moet dan 01:00 worden.

0710 zou dan 07:10 moeten worden


Hoe kan ik dat voor elkaar krijgen ?

MVG Jos

 

[Gerard2348]

Met een stukje VBA,

Heb ik ooit gevonden.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Intersect(Target, Range("B2:B40")) Is Nothing Then GoTo einde
If IsEmpty(Target) Then GoTo einde
If Hour(Target.Value) <> 0 Or Minute(Target.Value) <> 0 Then GoTo einde
  Application.EnableEvents = False
If Int(Target.Value / 100) < 0.1 Then
  Target = "00:" & Target.Value
Else
  Target = Int(Target.Value / 100) & ":" & Right(Target.Value, 2)
End If
  Application.EnableEvents = True
einde:
  ActiveSheet.Calculate
End Sub

Geldt voor B2:B40

 

[bloopy]

Super :thumb:

Heel erg bedankt @Gerard2348
Het werkt exact zoals ik het graag wou.

 

[Excelbat]

Wat dacht je van celopmaak:

00":"00

Greetz/Excelbat

 

[Gerard2348]

Zo die is ook mooi. :thumb:

 

[VenA]

Wat wil je eigenlijk? Zijn de 'getallen' tijden? Of is het alleen tekst waar een : tussen gezet moet worden?

Met de methode van Gerard2348 krijg je tijden terug waarmee ja eventueel kan rekenen. Met de methode van Excelbat krijg je een optisch bedrog waarmee het wat lastiger rekenen wordt.

 

[Ad Becude]

Nog makkelijker is om via autocorrectie ++ te wijzigen in :
Voordeel is: je hebt geen macro nodig, je hoeft geen celopmaak aan te passen (waar je ook niet mee kunt rekenen) en je kunt het op elke willekeurige plaats gebruiken.
Nog een voordeel is dat als je op het numerieke toets bord bvb 20++30 ingeeft dat Excel het zelf om zet in 20:30 en je kunt er nog mee rekenen ook.

 

[popipipo]

De oplossing van Ad gebruik ik al jaren; reuze handig en tikt ook snel; bovendien werkt ook meteen in WORD!

 

[VenA]

Twee toetsdrukken extra op en max van vier is best wel veel. Maar werkt inderdaad als een speer:d

Zonder extra toetsdrukken kan je ook deze proberen.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Foutje
With Application
    .EnableEvents = False
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Target.Value = Format(TimeValue(Left(Target, Len(Target) - 2) & ":" & Right(Target, 2) & ":0"), "hh:mm")
    End If
    .EnableEvents = True
End With
Exit Sub
Foutje:
    MsgBox "fout"
    With Target
        Application.Goto Range(.Address)
        .ClearContents
     End With
    Application.EnableEvents = True
End Sub

 

[robdgr]

Nog makkelijker is om via autocorrectie ++ te wijzigen in :

Ad,

Dank. Nooit geweten. Ook nooit naar gekeken.