Microsoft-Projektmanagementsoftware, die zum Planen, Verwalten und Kommunizieren eines Projektzeitplans und anderer Informationen zwischen Arbeitsgruppenmitgliedern, Projektmanager*innen und anderen Projektbeteiligten verwendet wird.
und wenn für die Einzelvorgänge in Dauer2 auch die Dauer stehen soll:
Sub Duration2()
Dim T, ST As Task
Dim vdursub As Boolean
Dim vdate As Date
For Each ST In ActiveProject.Tasks
If Not ST Is Nothing Then
If ST.Summary Then
vdur = 0
For vdate = ST.Start To ST.Finish
vdursub = False
For Each T In ST.OutlineChildren
If T.Start <= vdate And T.Finish >= vdate _
And ActiveProject.Calendar.Period(vdate, vdate).Working Then
vdursub = True
End If
Next T
If vdursub Then
vdur = vdur + 1
End If
Next vdate
ST.Duration2 = vdur * 480
Else
ST.Duration2 = ST.Duration
End If
End If
Next ST
End Sub
Gruß
Barbara