Zeitzähler für bestimmte Termine

Hallo Martin,

das gibt es bereits fix und fertig: OLReporter

Hallo,

hier die Prozedur:

2. Geben Sie in einem neuen oder einem vorhandenen Modul die
folgende Prozedur ein:
Public Sub GesamtdauerTermine()
Dim objAuswahl As Selection
Dim objTermin As AppointmentItem
Dim lngGesamt As Long
Dim lngTage As Long
Dim lngStunden As Long
Dim lngMinuten As Long
Dim strMsg As String
On Error Resume Next
Set objAuswahl = Application.ActiveExplorer.Selection
lngGesamt = 0
For Each objTermin In objAuswahl
lngGesamt = lngGesamt + objTermin.Duration
Next objTermin
lngStunden = lngGesamt \\ 60
lngMinuten = lngGesamt Mod 60
lngTage = lngStunden \\ 24
strMsg = \“Dauer in Stunden/Minuten: \“ _
& Format$(lngStunden, \“0\“) & \“:\“ & _
Format$(lngMinuten, \“00\“)
If lngTage > 0 Then
strMsg = strMsg & vbCrLf & \“Dauer in Tagen: \“ & _
CStr(lngTage) & vbCrLf
End If
MsgBox strMsg, _
vbOKOnly + vbInformation, _
\“Gesamtdauer Termine:\“
Set objAuswahl = Nothing
End Sub