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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für