Assignment.Peak property (Project)

Ruft die größte Zahl von Ressourceneinheiten für die Zuordnung. Schreibgeschützter Variant-Wert.

Syntax

Ausdruck. Peak

Ausdruck Eine Variable, die ein Assignment-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden alle Zuordnungen gesucht, denen mehr als eine bestimmte Anzahl von Ressourceneinheiten zugeordnet ist.

Sub FindOverassigned() 
 Dim T As Task, A As Assignment 
 Dim TooMany As Double, Results As String 
 
 TooMany = InputBox("Enter maximum allowed units per assignment: ") 
 
 For Each T In ActiveProject.Tasks 
 If Not (T Is Nothing) Then 
 For Each A In T.Assignments 
 If A.Peak > TooMany Then 
 Results = Results & T.Name & ": " & A.ResourceName & vbCrLf 
 End If 
 Next A 
 If Results <> "" Then MsgBox "The following resources are " & _ 
 "assigned more than " & TooMany & " units:" & vbCrLf & Results 
 Results = "" 
 End If 
 Next T 
 
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.