Application.ResourceAssignment Method (Project)

Weist die Ressourcen den ausgewählten Vorgängen zu, entfernt oder ersetzt sie oder ändert die Anzahl der Einheiten einer Ressource.

Syntax

Ausdruck. ResourceAssignment (Resources, Operation, With)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Ressourcen Optional String Die Namen der Ressourcen zugewiesen werden soll, entfernt oder in der ausgewählten Vorgänge ersetzt.

Hinweis Project weist keine Ressource zu, wenn tausende Trennzeichen oder Dezimaltrennzeichen in den Einheitenwerten enthalten sind.
Vorgang Optional Long Wenn Operation nicht angegeben wird, weist Project die Ressourcen den ausgewählten Vorgängen zu. Der Standardwert ist PjAssign. Dies kann eine der PjResAssignOperation-Konstanten sein.
With Optional String Gibt bei Verwendung mit der pjReplace-Konstante für Operation die Namen der Ressourcen an, die die Ressourcen der ausgewählten Vorgänge ersetzen.

PjResAssignOperation-Konstanten

Konstante Beschreibung
pjAssign Weist die angegebenen Ressourcen den ausgewählten Vorgängen zu.
pjRemove Entfernt die angegebenen Ressourcen von den ausgewählten Vorgängen.
pjReplace Die von Mit angegebenen Ressourcen ersetzen die durch Resources angegebenen Ressourcen.
pjChange Ändert die Ressourceneinheiten für die angegebene Ressource. Diese Konstante kann nur für eine einzelne Ressource verwendet werden.

Rückgabewert

Boolean

Bemerkungen

Verwenden Sie den Resources-Parameter , um anzugeben, dass eine Ressourcenzuweisung angefordert oder angefordert wird, wenn der Ressourcenersetzungs-Assistent verwendet wird. Das folgende Makro gibt beispielsweise, dass die Zuweisung von r1 dem ausgewählten Vorgang eine angeforderte Aufgabe darstellt.

Sub RequestAssignment()
    ResourceAssignment Resources:="r1[100%, R]", Operation:=pjChange, With:="" 
End Sub

Hinweis

Wenn Sie den Resources-Parameter auf diese Weise verwenden, gibt D "Demand" an, R gibt "Request" und N "None" an. Darüber hinaus sind keine Leerzeichen zwischen dem Einheitenwert und dem Anforderungs-/Bedarfswert zulässig. Für das Beispiel, Resources:="100%,R" Works, Resources:="100%, R" hingegen nicht.

Der Ressourcenersetzungs-Assistent kann nicht durch Ressourcen der Art Material ersetzen. Daher können Sie mit dem Resources-Parameter keine Materialressource für eine bestimmte Zuordnung anfordern oder anfordern.

Beispiel

Im folgenden Beispiel wird der Benutzer aufgefordert, den Namen einer Ressource anzugeben. Anschließend wird diese Ressource den ausgewählten Vorgängen zugewiesen.

Sub AssignResourceToSelectedTasks() 
 
    Dim Entry As String     ' The name of the resource to add to selected tasks 
    Dim R As Resource       ' Resource object used in For Each...Next loop 
    Dim Found As Boolean    ' Whether or not the resource is in the active project 
 
    Entry = InputBox$("Enter the name of the resource you want to add to the selected tasks.") 
     
    ' Assume resource doesn't exist in the active project. 
    Found = False 
 
    ' Look for the resource. 
    For Each R In ActiveProject.Resources 
        If Entry = R.Name Then Found = True 
    Next R 
 
    ' If the resource is found, then assign it to selected tasks. 
    If Found Then 
        ResourceAssignment Resources:=Entry, Operation:=pjAssign 
    ' Otherwise, tell user the resource doesn't exist. 
    Else 
        MsgBox ("There is no resource in the active project named " & Entry & ".") 
    End If 
     
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.