Dieser Browser wird nicht mehr unterstützt.
Führen Sie ein Upgrade auf Microsoft Edge durch, um die neuesten Features, Sicherheitsupdates und den technischen Support zu nutzen.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Hallo Allseits,
immer wieder mal kommt folgende Situation vor:
Der Sammelvorgang zeigt (richtig) 5 Tage Dauer an.
Die Teilvorgänge dauern in der Summe aber nur 3 Tage...und der Kunde schaut zuerst auf die Dauer des Sammelvorgangs...und stellt dann die Fragen…
Problematisch – und die Erklärungen immer länger - wird es, je höher (z.Bsp. mehrere Wochen/Monate) der Sammelvorgangszeitraum ist.
Als Beispiel:
-> dafür Dauer des Sammelvorgangs = 5 Tage
-> an 3 Tagen finden aber nur Vorgänge statt
-> am Montag, Dienstag und am Freitag
Kennt Ihr ähnliche Situationen aus Eurer MS-Project-Arbeit?
Habt Ihr dafür einen Lösungsansatz?
An der Idee einer 1:1-Einheitensteuerung (Summe der Arbeit – als Zusatzanzeige (im extra Feld) für Dauer des Sammelvorganges) bin ich gescheitert, weil dies bei sich überlappenden Vorgängen nicht händelbar ist und bei Vorgangverschiebungen gänzlich aus dem Raster fällt.
Danke für Eure Tipps und Hilfe - Gruß Steffen
Microsoft-Projektmanagementsoftware, die zum Planen, Verwalten und Kommunizieren eines Projektzeitplans und anderer Informationen zwischen Arbeitsgruppenmitgliedern, Projektmanager*innen und anderen Projektbeteiligten verwendet wird.
Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.
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
Hallo Steffen,
da stehe ich vor einem Rätsel. Bei mir läuft es problemlos. Ein Voraussetzung muss allerdings erfüllt sein: es muss für einen Tag Arbeit geben, damit er zu dieser Dauer addiert wird. Ein Plan ohne Arbeit bzw. Zuordnungen liefert nichts, da hier nicht wirkllich die Dauer betrachtet wird, sondern die Arbeitstage - heisst, es muss für den Tag was da sein (Ansicht Vorgang Einsatz). Ist das der Fall?
Gruß
Barbara
Hallo Barbara, ... funktioniert ebenfalls 1A.
Ich danke Dir. Gruß Steffen
Es gibt schon Dinge, die ich nicht auf mir sitzen lassen (aber davon stand nicht in der Spec ;-)):
Sub Dauer3_11_03_24()
Dim TSV As TimeScaleValues
Dim T As Task
Dim A As Assignment
For Each T In ActiveProject.Tasks
'If T.Summary And Not T Is Nothing Then 'NUR - für Sammelvorgänge
If Not T Is Nothing Then
If Not T.Summary Then
T.Duration3 = T.Duration
If T.Assignments.Count = 0 Then
T.Assignments.Add ResourceID:=ActiveProject.Resources("Tag Arbeit").ID
End If
Else
vdur = 0
For vdate = T.Start To T.Finish
Set TSV = T.TimeScaleData(vdate, vdate, pjTaskTimescaledWork, pjTimescaleDays, 1)
For i = 1 To TSV.Count
If TSV(i).Value <> "" Then
If TSV(i).Value > 0 Then
vdur = vdur + 1
End If
End If
Next i
Next vdate
T.Duration3 = vdur * 480
End If
End If
Next T
End Sub
Gruß
Barbara
Bis jetzt klaptt alles.
(Klaro, Unterbrechungen sind ein Problem, aber dies ist verschmerzbar)
Danke Dir - Gruß Steffen.