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
Ein ganz schneller Schnellschuß, also eher häßlich ;-):
Sub KalenderAendern()
Dim pTSV As TimeScaleValues
Dim c As Calendar
For Each c In ActiveProject.BaseCalendars
If c.Name = "<neuerKalendername>" Then 'Kalendernamen definieren
c.Period(ActiveProject.ProjectStart, ActiveProject.ProjectFinish).Working = True
vStart = ActiveProject.ProjectStart
vEnde = ActiveProject.ProjectFinish
For vdate = vStart To vEnde
Set pTSV = ActiveProject.ProjectSummaryTask.TimeScaleData(vdate, vdate, _
pjTaskTimescaledWork, pjTimescaleDays, 1)
For i = 1 To pTSV.Count
If pTSV(i).Value = "" Then
c.Period(vdate, vdate).Working = False
End If
Next i
Next vdate
End If
Next c
End Sub
Vielleicht hilft's ja als Basis?
Gruß
Barbara
Hmm, wie wär's mit einem Macro, dass die "leeren" Tage in den zusätzlichen Kalender einträgt?
Hallo Barbara, nach Aktivierung 'Formel'-Sammelvorgang werden die Werte angezeigt. Die Sache ist trotzdem recht aufwendig, aber natürlich danke für Deine Hilfe.
Gruß Steffen