Snel tijd intoetsen excel zonder dubbele punt

[Bert007]

Goedemorgen

Hoe kan ik snel tijd intikken in excel zonder dubbele punt te gebruiken. Dus als ik b.v. 11:45 wil intikken dan zou het mooi zijn om 1145 in te tikken waarbij de dubbele punt vanzelf verschijnt. Een aanvulling hierop zou zijn dat automatisch achter de tijd de tekst 'uur' komt te staan. Wij gebruiken dit in een planning en de tijden wijzigen vaak (meerder malen per dag) dus zou dat handig zijn.

Gr. Bert

 

[ExcelAmateur]

Bert007,

Ik heeb hier nog een macro van jaren geleden liggen. (toen werkte ik nog)
Je kunt 1345 invoeren en hij maakt er 13:45 van. (is ook je bedoeling)
Deze macro moet je achter het blad zetten en eventueel het bereik aanpassen.
Doe voor de zekerheid dit even op een test file uitproberen.

Suc6

Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen

On Error Resume Next
If Intersect(target, Range("B7:C16")) 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
End Sub

Als je deze regel in de code aanpast met het laatste stukje " uur" zet hij dit er achter.
Ik denk alleen dat je er dan niet mee kunt rekenen.

target = Int(target.Value / 100) & ":" & Right(target.Value, 2) [COLOR="#FF0000"]& " uur"[/COLOR]

 

[Bert007]

ExcelAmateur,

Ik heb het geprobeerd en het werkt goed.
Bedankt daarvoor!

mvg Bert