PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : [Excel] Will Zeiten addieren


pippo
2006-08-08, 11:41:50
Ein Kumpel hat grad folgendes Problem:

Er hat in Excel mehrere Zeiten, die er addieren will. Zum Beispiel 00.50 (0min, 50sec) und 03.40, die zu 04.30 addiert werden sollen. Wie stellt man sowas an? Er meinte mit der einfachen Addition von 2 Zellen klappt das nicht. Hat da jemand ne Idee? Es können bis zu 90 Zellen werden, die addiert werden müssen

pippo
2006-08-08, 12:05:04
Es hat sich herausgestellt, dass das Problem doch wo anders liegt :D Er will z.B. 134123 Minuten und 2342141 Sekunden addieren und dabei keine Uhrzeit, sondern einfach ne Zeit in hh:mm:ss bekommen. Dummerweise kann man aber in Excel keine Zelle als mm oder ss formatieren. Gibts da irgend einen Ausweg?

DEAF BOY
2006-08-08, 13:51:51
So aufwändig?

Arbeitszeiten addieren?

http://img233.imageshack.us/img233/4701/excelnf7.th.jpg (http://img233.imageshack.us/my.php?image=excelnf7.jpg)

Stunde = XX:00:00
Minute = 00:XX:00
Sekunde = 00:00:XX

Sowas?

Juerg
2006-08-08, 22:43:29
Sub Makro1()

Dim Jetzt As Date
Dim Dann As Date

With Application.ActiveSheet
' Werte definieren
.Range("A1").Value = "134123" 'Minuten
.Range("B1").Value = "2342141" 'Sekunden

' Jetzt festlegen
Jetzt = Now()

' Werte der Minuten und Sekunden addieren
Dann = DateAdd("n", CDbl(.Range("A1")), Jetzt)
Dann = DateAdd("s", CDbl(.Range("B1")), Dann)

' Differenz formatieren um Resultat lesbar zu gestalten :)
.Range("C1").Value = Format(Dann - Jetzt, "dd Tage hh:mm:ss")
End With

End Sub