OverAllocatedAssignments-Objekt (Project)

Artikel
10/16/2024

Stellt eine Auflistung von Assignment -Objekten dar, die überlastete Ressourcen aufweisen.

Hinweise

Verwenden Sie die Item -Eigenschaft, um ein einzelnes Assignment -Objekt aus der OverAllocatedAssignments -Auflistung abzurufen.

Beispiel

Das folgende Beispiel sucht Zuordnungen, in dem die Ressource überlastet ist. Wenn das Argument OverPeak auf False festgelegt ist, ist die Überlastung nicht größer als die maximale Zeit (100 %). Wenn Sie OverPeak auf True festlegen, sucht das Beispiel überlastete Zuordnungen, die maximale Zeit zur Verfügung, wie etwa 150 % überschreiten.

Sub FindOverallocatedAssignments()  
    Dim t As Task  
    Dim a As Assignment  
    Dim overAlloc As OverAllocatedAssignments  
    Dim numOver As Long  
    Dim overPeak As Boolean  
  
    overPeak = False  
  
    For Each t In ActiveProject.Tasks  
        If t.Overallocated Then  
            Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak)  
            numOver = overAlloc.Count  
            totalNumOver = overAlloc.TotalDetectedCount  
  
            For Each a In overAlloc  
                Debug.Print "Resource: " & a.Resource.Name & " is overallocated on task: " & t.Name  
                Debug.Print vbTab & "Number of overallocated assignments: " & numOver  
            Next a  
        End If  
    Next t  
End Sub

Eigenschaften

Name
Application
Count
Item
Parent
TotalDetectedCount

Siehe auch

Project-Objektmodell

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.

Freigeben über