In Excel Stunden [hh]:mm in Arbeitstage, Stunden und Minuten umrechnen

[fam.dengler]

Hiiilfe...
Ich möchte eine automatische Zusammenzählung von Stunden und Minuten im Format [hh]:mm durch meine Arbeitstage von 8:24 Stunden (Minuten); das entspricht 8,4 Stunden, teilen.
Als Ergebnis in anderer Zelle soll dann stehen" x Tage x Stunden x Minuten".

z.B. 10:06 Stunden sind dann 1 Tag 1 Stunde 42 Minuten

Das Problem: Ich bin zu blöd oder habe einen Knoten in der Leitung ...

Ich hab´s probiert mit
=ABRUNDEN((WERT(G9)*24) /8,4;0)&" Tage "&ABRUNDEN(((WERT(G9)*24) /8,4-ABRUNDEN((WERT(G9)*24) /8,4;0))*8,4;0)&" Stunden "&RUNDEN(((WERT(G9)*24)-ABRUNDEN(WERT(G9)*24;0))*8,4;0)&" Minuten"
Das haut aber nur bis zu den Stunden hin und die Minuten stimmen nicht mehr...

Ganze 24Tage funktionieren mit
=ABRUNDEN((WERT(G9)*24) /24;0)&" Tage "&ABRUNDEN(((WERT(G9)*24) /24-ABRUNDEN((WERT(G9)*24) /24;0))*24;0)&" Stunden "&RUNDEN(((WERT(G9)*24)-ABRUNDEN(WERT(G9)*24;0))*60;0)&" Minuten"

Analog dazu muss das ganze auch mit einem 08:12 Stunden-Tag usw. funktionieren...

Kann mir jemand helfen

[Sascha Oliver Haak]

@fam.dengler

Habe mal was für Dich erstellt, schau rein und vielleicht
gibt es ein jo that's it.

Oder auch nicht. Einfach mal reinsehen.

Gruß
Sascha

PS.:Zu blöd bist Du nicht, ist schon etwas kniffliger.

[fam.dengler]

Sorry Sascha...

sehr lieb gemeint...aber leider beomme ich den VBA Code nicht in mein Arbeitsblatt....VBA kann ich gar nicht...

Geht das nicht mit einer Funkrion ???...die könnte ich dann überall rein kopieren und ggf. auch von 8.24 Arbeitstag auf 8.12 Arbeitstag alleine verändern.
Diese von mir o.g. Funktion würde schon klappen nur hinten raus mit den Minuten haut´s nicht hin..kann man da nicht irgendwie "Rest Minuten" draus machen ??

Zu blöd auch dass ich ausgerechnet königlich-bayerischer Polizist bin und wie alle bayerischen Beamten eine 42Stunden Woche habe..das heißt eben 8.24 Stunden am Tag...glatter 8-Stunden Tag wäre einfacher.....

Vielleicht hast du oder sonst jemand eine für mich einfacher zu handhabende Lösung....

lg
Stefan

[fam.dengler]

Und glatter 8-Stunden Tag geht auch mit:

=ABRUNDEN((WERT(I19)*24) /8;0)&" Tage "&ABRUNDEN(((WERT(I19)*24) /8-ABRUNDEN((WERT(I19)*24) /8;0))*8;0)&" Stunden "&RUNDEN(((WERT(I19)*24)-ABRUNDEN(WERT(I19)*24;0))*60;0)&" Minuten"

Aber eben nicht diese verdammten 8.24 Stunden/Minuten ...

[Sascha Oliver Haak]

@fam.dengler

Frage:
Funktioniert die von mir geschriebene Funktion in der Tabelle oder nicht?

Zu VBA:
Nimm Deine Arbeitstabelle und öffne VBA
Wie geht's ? So geht's
- Alt + F11 gleichzeitig drücken
- In der Menüleiste nun "Einfügen" auswählen und Modul auswählen
- in dem VBA Editor in der Mitte fügst Du durch kopieren folgenden Code ein

Public Function TimeToLong(ArbeitszeitSoll As Variant, AktuelleZeit As Variant, AusgabeFormat As String) As String
    On Error Resume Next
    Dim iday, iHou, iMin As Double
    
    AZ = ArbeitszeitSoll * 60
    TZ = AktuelleZeit * 24 * 60
    iday = Val(TZ / AZ)

If (TZ / AZ) > 1 Then

    iday = Val(TZ / AZ)
    iHou = (TZ - (iday * AZ)) / 60
    If iHou < 1 Then
        iHou = 0
        Else
        iHou = Val(iHou)
    End If
    
    iMin = (TZ - (iday * AZ))
    If iMin > 60 Then
        iMin = ((iMin / 60 - Val(iMin / 60)) * 60)
        iMin = Round(iMin)
        Else
        iMin = Round(iMin)
        
    End If
    
End If
If AusgabeFormat = "l" Then
    TimeToLong = str$(iday) + " Tag(e) " + str$(iHou) + " Stunde(n) " + str$((iMin)) + " Minute(n)"
    Else
    TimeToLong = str$(iday) + " T " + str$(iHou) + " Std " + str$((iMin)) + " Min"
End If
End Function

Nun ist der Code in Deiner Tabelle mit der Funktion

TimeToLong(...) zu Deiner Verfügung.

Wie schon beschrieben

TimeToLong(Stunden für einen Arbeitstag;Angefallene Stunden; AusgabeFormat)

Versuche es nochmal bei mir funktioniert es.

Gruß
Sascha

[fam.dengler]

Ich schaff´s nicht....und jetzt ist es auch schon spät....morgen wieder...
Und:Wirklich herzlichen Dank für deine Hilfe (dass ich so dämlich bin dafür kannst du nix)..

Gute Nacht einstweilen....

Stefan

[fam.dengler]

Einen Versuch habe ich noch gewagt...und es hat geklappt...
Thank you so much...i love you....bussi, bussi, bussi...

Harry Potter und seine Kumpels wären stolz auf dich..

Jetzt kann ich bestimmt gut schlafen....

Danke Kalle,
lg
Stefan

P.S. Ähhh...und wie mache ich das jetzt mit einem 8.12 Stunden/Minuten Tag ???....kann ich den VBA Code selber verändern ??? ...oder bastelst du mir noch was für 8.12, 8.00, 7.48 ???

[Sascha Oliver Haak]

@fam.dengler

Du musst in der Funktion doch nur den Verweis verändern.

TimeToLong(ArbeitsZeitSoll;ArbeitsZeitAktuell;FormatAusgabe)

ArbeitszeitSoll = Dein Arbeitszeitverweis z.B. A1, C13 oder AZ55
ArbeitsZeitAktuell = Deine aktuelle Arbeitszeit z.B. B1, d13 ...

Format = "l" für Lange Ausgabe oder "" für kurze Ausgabe

Du mußt also in VBA nicht Proggen sondern nur den Verweis in der
Formel anpassen.

Solltest Du meinen, dass Du Flex-Zeiten hast und auch miese machen darfst muss ich noch mal schauen wie es lösbar ist.

Gruß
Sascha

PS.: Wegen der Minusstunden mußt Du noch mal bestätigen.

[fam.dengler]

Hi Sascha…
Ich bin sogar noch selber drauf gekommen bevor ich deine letzten Zeilen gelesen habe…
Irgendwie dachte ich mir gestern schon dass in deiner VBA Programmierung nie die Zahl 8,4 oder 8,24 vorkommt…habe da schon vermutet dass es sich um eine „alles-für-jede-Situation-Formel“ handelt….
Heute habe ich das im Büro ausprobiert…flunzt prima mit sämtlichen Zeitangaben….
Danke nochmal…so was hätte ich nie gekonnt…so ein bisserl mit DATDIV , WENN, ZÄHLENWENN und dem ganzen Zeug kann ich , aber dann hörts irgendwo auf…
Die Polizeiinspektion Passau dankt also ….jetzt können wir (d.h. ich) nicht nur unsere Zeiten zusammen zählen sondern auch das Ganze auch in Arbeitstagen darstellen…es geht nämlich darum wie viel Zeit wir mit Gefangenentransporten, Gefangenenvorführungen vor Gericht und all so Mist im Jahr verplempern…da kommen imposante Zahlen raus …ich habe ein Excel Datenblatt erstellt in dem nur die Zeiten eingetragen werden…alles andere zählt sich dann von selbst zusammen…wie viel, wie oft usw. ..nur eben die Darstellung in Tagen hat noch gefehlt..
Bis irgendwann mal,
lg
Stefan

[Sascha Oliver Haak]

@fam.dengler

Gern geschehen. Netten Menschen helfe ich gerne.

Gruß
Sascha