Function sekundenF(ByVal zeit As Variant) As String
 
'Tennung der Glieder und Kalkulation in Sekunden
Dim Text As String
Dim Parts As Variant
Dim Part As Variant
Dim partnummer, part1, part2, part3 As Long
partnummer = "1"
Text = zeit
Parts = Split(Text, ":", 3)
For Each Part In Parts
  If partnummer = 1 Then part1 = Part
  If partnummer = 2 Then part2 = Part
  If partnummer = 3 Then part3 = Part
  partnummer = partnummer + 1
Next
 
  sekundenF = CLng((part1 * 3600) + (part2 * 60) + part3)
End Function
 
 
'Sekundenzahl in "hh:nn" umwandeln:
Function SekInHHNN(ByVal zeit As Variant) As String
  Dim Stunden As Long
  Dim Minuten As Long
  Dim sekunden As Long
  'Stunden- und Minutenanteil bestimmen:
  Stunden = zeit \ 3600
  sekunden = CLng(zeit - Stunden * 3600)
 
  Minuten = sekunden \ 60
  sekunden = CLng(sekunden - Minuten * 60)
 
 
  'Formatierung:
 SekInHHNN = Format$(Stunden, "00") _
       & ":" & Format$(Minuten, "00") _
       & ":" & Format$(sekunden, "00")
End Function