Project.LevelFromDate-Eigenschaft (Project)

Ruft ab oder legt das Startdatum eines Bereichs, in dem überlastete Ressourcen abgeglichen werden. Der Standardwert ist das Projekt zu starten, Datum oder der letzte eingegebene Datum. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. LevelFromDate

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

Hinweise

Sie können auch die LevelFromDate- Eigenschaft im Dialogfeld Kapazitätsabgleich festlegen. Die Einstellung für den Zugriff auf Abgleichoptionen auf der Registerkarte Ressourcen des Menübands, und klicken Sie auf die Option Level und legen Sie das Datum aus.

Beispiel

Im folgenden Beispiel kann der Benutzer den Abgleichszeitraum ändern, wenn der aktuelle Zeitraum mit dem Projektanfangstermin beginnt oder mit dem Projektendtermin endet.

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 End If 
 End If 
 End With 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.