Ik heb in Excel een schema voor het bijhouden van mijn uren tijdens de zomervakantie gemaakt. Ooit heb ik een vraag hier gezien waarin men alleen 8 in hoefde te vullen en dan kwam er te staan 8:00, vul ik in 1515 dan komt er te staan 15:15!
Oplossing gevonden:
Oplossing gevonden:
Code:
Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen
On Error Resume Next
If Not (Intersect(target, Range("A1:B36")) Is Nothing) Then
If Not (IsEmpty(target)) Then
If Not (Hour(target.Value) <> 0 Or Minute(target.Value) <> 0) Then
Application.EnableEvents = False
If target.Value >= 24 Then
target = Int(target.Value / 100) & ":" & Right(target.Value, 2)
Else
target = target.Value & ":00"
End If
Application.EnableEvents = True
ActiveSheet.Calculate
End If
End If
End If
On Error GoTo 0
End Sub
Laatst bewerkt:
