Teken vast zetten in cel

[SEUCKENS]

Hoe kan ik in een cel die als eigenschap tijd heeft het scheiding teken tussen uur en min al vastzetten in een lege cel.

mvg
nico

 

[gast0660]

Ik denk dat je zoiets bedoeld.
Als je vb 1020 intypt in cel A1, de volgende code zal die veranderen in 10:20.
De ranges aanpassen volgens wens.
Code in het juiste blad.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Format(Target.Value, "00:00")
    Application.EnableEvents = True
End Sub