automatisch tijdsaanduiding

[Albatros]

Hallo,

middels onderstaande code kan ik in bereik c9-c200 een dubbele punt krijgen tussen de uren en minuten, bij het alleen invoeren van 4 getallen. Dus 1234 wordt 12:34
Mijn vraag is nu, hoe ik de code moet aanpassen als ik ook bereik E9-E200, en G9-G200, wil toevoegen hieraan.
De tussenliggende bereiken dus niet

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("c9:c200")) Is Nothing Then Exit Sub

If IsEmpty(Target) Then Exit Sub

If Target.Cells.Count > 1 Then Exit Sub


ingave = Target.Value

Application.EnableEvents = False
If Hour(ingave) <> 0 Or Minute(ingave) <> 0 Then

Target = Hour(ingave) & ":" & Minute(ingave)

Application.EnableEvents = True

Exit Sub

End If


If Int(ingave / 100) < 0.1 Then
Target = "00:" & ingave
Else
Target = Int(ingave / 100) & ":" & Right(ingave, 2)
End If

Application.EnableEvents = True
End Sub

Albatros

 

[popipipo]

Range("c9:c200")

Maak daar

Range("c9:c200,e9:e200,g9:g200")

van.

 

[Albatros]

popipipo,

Bedankt voor de snelle reactie en het juiste antwoord.:thumb:
Ik zelf zat weer veel te moeilijk te denken

Albatros