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
Klar, habe ich gar nicht mehr dran gedacht. Eine 4-seitige Forumsdikussion liest sich etwas mühsamer als eine Spezifikation ;-).
Viel Spaß, ich hoffe jetzt klappt alles!
Gruß
Barbara
Hallo Barbara,
ich habe da noch "ein":
'------------------------------------
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 'eingefügt
' damit erhalten auch Vorgänge in Dauer3 einen Wert
'Deine Meinung dazu?
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
vdur = vdur + 1
End If
Next i
Next vdate
T.Duration3 = vdur * 480
End If
End If
Next T
Gruß Steffen
Hallo Barbara, danke Dir. Jetzt sieht es wieder besser aus.
Ich teste weiter.
Gruß Steffen