Microsoft Excel

Herbers Excel/VBA-Archiv

VBA / Ausgabe des Wertes in Std. Dezimal

Betrifft: VBA / Ausgabe des Wertes in Std. Dezimal von: Isabell
Geschrieben am: 19.08.2004 19:42:55

Hallo Leute, habe ein Programm mit folgenen Function:

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
  


Betrifft: AW: VBA / Ausgabe des Wertes in Std. Dezimal von: Ramses
Geschrieben am: 19.08.2004 19:57:16

Hallo

Ohne das jetzt nachzuvollziehen,... aber was soll dabei rauskommen ?

Du rufst die Funktion mit den Parametern

Function fktGesamtZeit_eintragen(pdatDatum As Date, pstrInitialien As String, pdatDauer As Date)

auf, und schreibst in der viertletzten Zeile

ActiveCell.Value = Format(pdatDauer, "hh:mm")

Die übergebene DATUMS-Variable als Zeit formatiert wieder zurück ?

Weshalb ist das übrigens als Function und nicht als Makro deklariert ?

Gruss Rainer


  


Betrifft: keine Ahnung !!! von: Isabell
Geschrieben am: 19.08.2004 20:04:03

Hallo Rainer, keine Ahnung, habe das so bekommen !!!

Gruß
Isabell


  


Betrifft: AW: keine Ahnung !!! von: Ramses
Geschrieben am: 19.08.2004 20:32:07

Hallo

dann solltest du bei dem nochmals nachfragen, wo du es her hast :-)
Der hat sich sicher was dabei gedacht.

Mit den ganzen übergebenen Parametern ist das für mich so leider nicht nachvollziehbar.

Grus Rainer


 

Beiträge aus den Excel-Beispielen zum Thema "VBA / Ausgabe des Wertes in Std. Dezimal"