VBA / Ausgabe des Wertes in Std. Dezimal

Function fktGesamtZeit_eintragen(pdatDatum As Date, pstrInitialien As String, pdatDauer As Date)
Dim AktDatum      As Variant
Dim aktMa         As Variant
Dim ZE_Datum      As Integer
Dim intSP_Initialien As Integer
Dim TBHerkunft As String
Application.ScreenUpdating = False
TBHerkunft = ActiveSheet.Name
ThisWorkbook.Worksheets(TB_ZIEL).Select
Range("A5:A370").Select
Range("A5").Activate
'Zeile suchen (Datum)
For Each AktDatum In Selection
AktDatum.Activate
If DateValue(ActiveCell.Value) = DateValue(pdatDatum) Then
ZE_Datum = AktDatum.Row
End If
Next
'Spalte suchen (Mitarbeiter)
Range(Cells(ZE_INITIALIEN_START, SP_INITIALIEN_START), _
Cells(ZE_INITIALIEN_START, SP_INITIALIEN_START + MAX_MITARBEITER)).Select
For Each aktMa In Selection
If aktMa.Value = pstrInitialien Then
intSP_Initialien = aktMa.Column
End If
Next
'Eintragen
Cells(ZE_Datum, intSP_Initialien).Select
ActiveCell.Value = Format(pdatDauer, "hh:mm")
ThisWorkbook.Worksheets(TBHerkunft).Select
Application.ScreenUpdating = False
'fertig :-))
End Function