Das selbe erreicht man, wenn man in die Listenansicht vom Kalender wechselt...
die entsprechenden Elemente markiert um dann über drucken (nur markierte Elemete)
einen Ausdruck bekommt. Dies ist natürlich sehr umständlich und sollt vereinfacht werden.
Leider sind meine Fähigkeiten in VBA & Co. beschränkt...vielleicht kann mir jemand einen Gedankenanstoss geben.
Dieses Marko habe ich aber gefunden. Darauf lässt sich sicher aufbauen:
Public Sub Zeige_Gesamtdauer()
Const MSG_TITLE = "Gesamtdauer der markierten Einträge"
Dim objSelection As Selection
Dim lngIndex As Long
Dim lngMinutes As Long
On Error Resume Next
Set objSelection = Application.ActiveExplorer.Selection
For lngIndex = 1 To objSelection.Count
lngMinutes = lngMinutes + objSelection(lngIndex).Duration
Next lngIndex
Set objSelection = Nothing
' MsgBox Format(Round(lngMinutes / 60, 2), "#0.00") & " Stunden", vbInformation , MSG_TITLE
MsgBox Format(Int(lngMinutes / 60), "#0") & ":" & _
Format(lngMinutes Mod 60, "00") & " Stunden", vbInformation, MSG_TITLE
End Sub
Danke
ChrisHoffi