Task.WBSSuccessors-Eigenschaft (Project)

Ruft die Aufschlüsselung der Arbeit (Projektstrukturplan)-Codes der Nachfolger des Vorgangs, getrennt durch das Listentrennzeichen. Schreibgeschützte Zeichenfolge.

Syntax

Ausdruck. WBSSuccessors

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Beispiel

Im folgenden Beispiel wird vom Benutzer eine Vorgangsnummer angefordert und anschließend eine benutzerfreundlichere Aufschlüsselung der PSP-Codes der Nachfolger bereitgestellt.

Sub EnumerateSuccessors() 
 Dim Task As Task 
 Dim SuccTasks As Tasks 
 Dim ID As Long 
 Dim Successors As String 
 Dim List As String 
 Dim Count As Integer 
 
 ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) 
 
 Set Task = ActiveProject.Tasks(ID) 
 Set SuccTasks = Task.SuccessorTasks 
 Successors = Task.WBSSuccessors 
 Count = 1 
 
 If SuccTasks.Count = 0 Then 
 List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors." 
 Else 
 List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf 
 Do While InStr(Successors, ListSeparator) <> 0 
 List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf 
 Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator)) 
 Count = Count + 1 
 Loop 
 List = List & SuccTasks(Count).Name & ": " & Successors 
 End If 
 
 MsgBox List 
 
 Set SuccTasks = Nothing 
 Set Task = Nothing 
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.