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,
das erste Kundenecho: "MS-Project kann ja doch mehr"...
Diese ist schon verständlich.
Arbeitsfreie Zeit wird bei „Summe Dauer Sammelvorgang“ berücksichtigt, aber nicht „keine Nutzung/Belegung möglicher Arbeitszeit“.
Zu Deinem Re/Aw: So ein Thema ist Dir noch nicht mitgeteilt worden:
Als Minibeispiel:
Montag bis Freitag = Arbeit,
Samstag und Sonntag = arbeitsfrei
Vorgang 1: Montag =1 Tag
Vorgang 2: am nächsten Montag = 1 Tag
Project zeigt im „Dauer Sammelvorgang“ ‚ 6 Tage an (Mo bis Mo = 8 Tage minus arbeitsfrei Sa/So = 6 Tage)
Samstag und Sonntag werden also in „Dauer Sammelvorgang“ abgezogen.
Dienstag bis Freitag findet aber auch nix statt – ergo: richtiges Ergebnis wäre „Dauer Sammelvorgang“ = 2 Tage mit Start: Montag und mit Ende: nächsten Montag.
So wie nach Durchlauf Deines Makros.
Der Abzug „arbeitsfreier Zeit“ sollte eben nicht nur der Abzug „arbeitsfreier Zeit“ aus Kalender“ sein.
In den Projekten kommen sehr oft „Wartezeiten“ oder „technisch bedingte Wartezeiten (z.Bsp. Betonabbindung)“vor. Diese werden in der Regel über EA/AA-Beziehungen usw. mit +Tagen oder –Tagen gesteuert/geplant.
Diese Zeiträume werden aber bei „Dauer Sammelvorgang“ summiert, weil im Kalender: „Arbeitszeit“ für diese Tage hinterlegt ist.
Gruß Steffen
P.S.: zu Deinem Makro:
Nicht gut (wie bei mir vorhin) ist es, falls ein Vorgang keine Zuweisung „Arbeit“ vor Makrostart hat.
Lässt sich hier noch was einfügen?
Mit: meinem „Versuch“:
For Each T In ActiveProject.Tasks
SetTaskField Field:="Ressourcennamen", Value:="Tag Arbeit[1]" Durchlauf für: Zuweisung Arbeit
Next T
For Each T In ActiveProject.Tasks
'If T.Summary And Not T Is Nothing Then - für Sammelvorgänge
If Not T Is Nothing Then
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
vdur = vdur + 1
End If
Next i
Next vdate
T.Duration2 = vdur * 480
End If
Next T
…bin ich gescheitert…
Hallo Steffen,
gern geschehen. Auch wenn ich an der Brauchbarkeit zweifle. Ich habe ja schon viele Implementierungen gemacht, aber die Frage ist mir bisher noch nie untergekommen ;-). Viel Erfolg!
Barbara
Hallo Barbara, sorry - die Zuweisung Arbeit hatte ich übersehen. Funktioniert prima. Das interessiert sicherlich auch andere Leute.
Ich danke Dir. Gruß Steffen