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.