Goeden avond,
Onderstaand een prima oplossing om ingaven automatisch van : te voorzien.
De afvraging vindt plaats van C4105
In klom E wordt een getal ingevoerd en mag niet worden afgevraagd.
Maar .......
Als ik nu meerdere kolommen wil afvragen, dus ook F4:G105
Hoe kan ik deze dan toevoegen binnen deze formule ?:thumb:
Met groet,
Jan
On Error Resume Next
If Intersect(target, Range("C4105")) 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
Onderstaand een prima oplossing om ingaven automatisch van : te voorzien.
De afvraging vindt plaats van C4105
In klom E wordt een getal ingevoerd en mag niet worden afgevraagd.
Maar .......
Als ik nu meerdere kolommen wil afvragen, dus ook F4:G105
Hoe kan ik deze dan toevoegen binnen deze formule ?:thumb:
Met groet,
Jan
On Error Resume Next
If Intersect(target, Range("C4105")) 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