Task.UnlinkSuccessors method (Project)
Entfernt einen oder mehrere Nachfolger des Vorgangs.
Syntax
Ausdruck. UnlinkSuccessors
( _Tasks_
)
Ausdruck Eine Variable, die ein Task-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Aufgaben | Erforderlich | Objekt | Kann es sich um ein Vorgangs- oder Tasks -Objekt sein, die an einen oder mehrere Vorgänge, die entfernt werden als Nachfolger. |
Rückgabewert
Nothing
Beispiel
Im folgenden Beispiel wird der angegebene Nachfolger eines jeden Vorgangs des aktiven Projekts entfernt.
Sub RemoveSuccessor()
Dim Entry As String ' Successor specified by user
Dim SuccTask As Task ' Successor task object
Dim T As Task ' Task object used in For Each loop
Dim S As Task ' Successor (task object) used in loop
Entry = InputBox$("Enter the name of a successor to unlink from every task in this project.")
Set SuccTask = Nothing
' Look for the name of the successor in tasks of the active project.
For Each T In ActiveProject.Tasks
If T.Name = Entry Then
Set SuccTask = T
Exit For
End If
Next T
' Remove the successor from every task in the active project.
If Not (SuccTask Is Nothing) Then
For Each T In ActiveProject.Tasks
For Each S In T.SuccessorTasks
If S.Name = Entry Then
T.UnlinkSuccessors SuccTask
Exit For
End If
Next S
Next T
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.
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