Tage:Stunde:Minuten:Sekunden addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo selli,
ich habe beide Formeln ausprobiert, doch ich bekomme beim Erstellen der Summe nicht die richtige Anzahl an Stunden raus.
Addiere ich die Zeiten händisch bekomme ich 38 Tage raus. Das müssten 912 Stunden sein, plus die restlichen 20 Stunde ergibt sich 932 Stunden insgesamt. Deine erste Formel bekommt als Summe (=Summe(A1:A35)) 5276 Stunden raus und bei Deiner zweiten Formel habe ich 1172 Stunden.
Problem ist auch noch, dass ich keine Berechtigung habe in der Quelldatei etwas zu ändern. Ich kann nur die Zahlen auslesen. Die Datei ist von einem anderen Programm exportiert, darum sehen diese Werte ja aus wie Zeiten, die Zellen sind aber als Standard formatiert und habe kein richtiges Zeitformat. Beim Auslesen mittels VBA in eine Variable wird ein String erkannt. Ich habe jetzt schon eine Funktion geschrieben, in der ich diese Formel auslese, die Tage in Stunden umwandeln und mit den restlichen Stunden addiere, wieder mit den Minuten und Sekunden zusammenfüge und diese zurückgeben. Aber jetzt ist es definitiv ein String. Einen String kann ich nicht mehr addieren.
In VBA gibt es anscheinend auch nicht das Format über 24 Stunden, somit kommt ein umwandeln des Strings in Date oder so nicht in Frage. Die Zwischenspeicherung in einer neuen Zelle würde ich gerne vermeiden, da ich nur in der neuen Datei schreiben kann und diese Zellen dann auch wieder löschen müsste. Ich wollte den Quellcode so kurz wie möglich halten.
Hat noch jemand eine Idee für eine Lösung.
Tschüßi Lubeca

Hallo Werner,
Deine Formel funktioniert in Excel. Doch ich muss ja die Werte per VBA zusammenrechnen und in eine andere Excel Datei kopieren.
Ich suche eine Lösung auf Basis von VBA.
Es müssen auch nicht alle Daten Übernommen werden. Anhand was in meiner Tabelle in Spalte A steht, speichere ich die Zeilennummer in einem Array. In dem Array stehen dann die Zeilennummern von denen ich die Spalte D zusammenrechnen muss.
Mein erste Ansatz war so:


Ergebnis = 0
'Spalte 4 für alle Namen Addieren
For Zaehler1 = 0 To UBound(VarArr2)
Zeile = CInt(VarArr2(Zaehler1, 1))    ' Auslesen der Zeilen
Ergebnis = Ergebnis + Workbooks(Mappe1).Sheets(1).Cells(Zeile, 4).Value
Next
.Range("F7").Value = Ergebnis

Dieses funktionierte auch solange in der Spalte der Text im [h]:mm:ss -Format war.
Jetzt, in einer neuen Quelldatei, sind die Zeitwerte aber größer und im T:hh:mm:ss -Format
Das Umrechnen habe ich in folgender Funktion ausprobiert:


Function Umrechnen(VarZelle As Range) As String
Dim VarZeit As String
Dim VarStunde As Integer
Dim VarZeitneu As String
If VarZeit = Format(VarZeit, "?:?:?:?") Then
VarStunde = (CInt(Left(VarZeit, 1)) * 24) + CInt(Left(Right(VarZeit, 8), 2))
VarZeitneu = CStr(VarStunde) & Right(VarZeit, 6)
Else
VarZeitneu = VarZeit
End If
Umrechnen = VarZeitneu
End Function

Nur ich gebe hier einen String zurück und bekomme die richtige Zahl nicht in das Date Format, mit dem ich addieren kann. Ich müsste in der Funktion zum Umrechnen keinen String sondern den richtigen Doublewert zurückgeben.
Hat jemand eine Idee, wie ich in meiner Funktion den Stringwert vor der Rückgabe in den korrekten Doublewert umrechne?
Tschüßi Lubeca

Beliebteste Forumthreads (12 Monate)

Tage:Stunde:Minuten:Sekunden addieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	E
1	932:37:36

Tage:Stunde:Minuten:Sekunden addieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread