Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngValue As Long
Dim lngMs As Long, lngSec As Long, lngMin As Long, lngHour As Long
Dim rngTime As Range
Set rngTime = Intersect(Range(ThisWorkbook.Names("Uhrzeiten").RefersTo), Target)
If Not rngTime Is Nothing Then
lngValue = rngTime.Value
Debug.Print lngValue
lngMs = lngValue - (Int(lngValue / 1000) * 1000)
lngValue = (lngValue - lngMs) / 1000
lngSec = lngValue - (Int(lngValue / 100) * 100)
lngValue = (lngValue - lngSec) / 100
lngMin = lngValue - (Int(lngValue / 100) * 100)
lngValue = (lngValue - lngMin) / 100
lngHour = lngValue
Application.EnableEvents = False
With rngTime
.Formula = TimeSerial(lngHour, lngMin, lngSec + (lngMs / 1000))
.NumberFormat = "[h]:mm:ss.000"
End With
Application.EnableEvents = True
End If
End Sub