Dubbele punt of niet?

[bascas]

Hoi, heb een planning waar je de tijd moet invullen. de cel eigenschappen zijn uu:mm. Maar ik wordt erg verdrietig van het veelvuldig de dubbele punt) in te moeten toetsen. Bestaat er een manier om het gewoon met een . (punt) tedoen, maar dat het nog wel tijdnotatie blijft?

 

[Hoornvan]

bascas,

Zet deze code achter het werkblad en past de range (waar de tijd moet komen) aan.
Zet in de cel 1230 en hij maakt er 12:30 van

Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen

On Error Resume Next
If Intersect(target, Range("B6:C210")) 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

 

[Haije]

Alternatief voor dubbele punt :

of voor bij Extra > Autocorrectie-optie het volgende toe:

onder vervang ++
onder door :

in het vervolg type je ipv de dubbele punt tweemaal op de +

 

[snb]

Dit heeft mijn voorkeur:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 2 And Len(Target) < 5 Then Target = Format(Left(Right("0000" & Target, 4), 2) & ":" & Right(Target, 2), "hh:mm")
  Application.EnableEvents = True
End Sub

 

[bascas]

Hartelijk bedankt voor de hulp.:thumb: