Er is een dubbelzinnige naam gevonden: Worksheet_Change

[Ronkessels]

Ik wil graag automatisch dubbele punten laten invullen in verschillende kolommen. De code die ik gebruik geeft een foutmelding.
Wat doe ik verkeerd, of is dit gewoon niet mogelijk.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D7:H500;V7:Z500")) Is Nothing Then Exit Sub
  If IsEmpty(Target) Then Exit Sub
    ingave = Target.Value
    If Hour(ingave) <> 0 Or Minute(ingave) <> 0 Then Exit Sub
    Application.EnableEvents = False
    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

 

[Ronkessels]

Ik heb de foute gevonden. Maar toch even voor diegenen die het ook willen weten.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D7:H500,V7:Z500")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
ingave = Target.Value
If Hour(ingave) <> 0 Or Minute(ingave) <> 0 Then Exit Sub
Application.EnableEvents = False
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