Public
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
Die Ausgabe des Wertes erscheint in z.B. 10:30 Std.
Ich möchte aber die Ausgabe in Zeitwert Dezimal haben ! Also *24 oder ?
Kann mir jemand helfen ?
Gruß
Isabell