Freigeben über

Project.LevelToDate property (Project)

  • Artikel

Ruft ab oder legt das Enddatum eines Bereichs, in dem überlastete Ressourcen abgeglichen werden. Der Standardwert ist der Projektendtermin oder der letzte eingegebene Datumswert. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. LevelToDate

Ausdruck Eine Variable, die ein Project-Objekt darstellt.

HinwBemerkungeneise

You can also set the LevelToDate property in the Resource Leveling dialog box. To access the setting, click Leveling Options on the Resource tab of the Ribbon, and then click the Level option and set the To date.

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.