Assignment.Peak-Eigenschaft (Projekt)

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

Syntax

Ausdruck. Peak

Ausdruck Eine Variable, die ein Zuweisungsobjekt 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.