Zellausgabe: Zeitsummierung auch über 24 Std
12.10.2012 11:05:32
Dieter(Drummer)
ich habe eien Makro aus dem Netz, dass Zeiten auch größer 24 Summiert. Die Summe wird aber nur in einer MSG-Box gezeigt. Dies funktioniert prima. Nun möchte ich aber die Zeitsummierung, NACH der Anzeige der MSG-Box, in einer Zelle ausgeben, die ich anschließend auswählen kann. Wäre toll, wenn mir jemand das Makro erweitern kann.
Hier das bestehende Makro:
Sub Zeit_summieren()
Dim x As Variant
Dim z As Variant
Dim Zeit
x = Selection.Address
z = Application.WorksheetFunction.Sum(ActiveSheet.Range(x))
Zeit = Format(Hour(z) + Int(z) * 24, "00") & ":" & Format(Minute(z), "00")
If z = 0 Then
MsgBox "Sie müssen mind. 1 gültige Zelle markieren", , "Fehler"
Else
MsgBox Zeit & " Std.", , "Summe [Zeit]"
End If
End Sub
Danke für's drum kümmern und evtl. Hilfe.
Gruß, Dieter(Drummer)