Attribute VB_Name = "Vorgaenge"
Option Explicit
Private VorgangsName As String


Sub VorgangZusammenFassen()
Attribute VorgangZusammenFassen.VB_Description = "Makro VorgangZusammenFassen\nMakro am 06.08.2022 von Axel Tüting aufgezeichnet."
    Dim Vorgang As Task
    
    FilterEdit Name:="Zusammenhängende Vorgänge", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Text30", Test:="Gleich", Value:="V", ShowInMenu:=True, ShowSummaryTasks:=False
    FilterEdit Name:="Zusammenhängende Vorgänge", TaskFilter:=True, FieldName:="", NewFieldName:="Text30", Test:="Gleich", Value:="N", Operation:="Oder", ShowSummaryTasks:=False
    
    'Erfasst die Nachfolger zum ausgewählten Vorgang
    HighlightSuccessors Set:=True
    'Schreibt in Text30 ein N oder V für Nachfolger/Vorgänger rein
    'Wobei das V der ausgewählte Vorgang ist
    For Each Vorgang In ActiveProject.Tasks
        If Vorgang.ID = Application.ActiveCell.Task.ID Then
            Vorgang.Text30 = "V"
            VorgangsName = Vorgang.Name
        End If
        If Vorgang.PathSuccessor = True Then
            Vorgang.Text30 = "N"
        End If
    Next
    'Ruft den benutzerdefinierten Filter auf, der nach
    'Text2 entsprechend filtert
    FilterApply Name:="Zusammenhängende Vorgänge"
End Sub
Sub Zuruecksetzen()
    'Alle Filter entfernen und die Vorgänge wieder alle anzeigen
    FilterClear
    RemoveHighlight
    'Inhalt von Text2 löschen (Text30 MUSS eingeblendet sein!)
    SelectTaskColumn Column:="Text30"
    EditClear Contents:=True
    'Da vorher die ganze Spalte selektioniert wurde,
    'wird nun wieder auf den Vorgangsnamen gesprungen, bzw. selektioniert
    FindEx Field:="Name", Test:="Enthält", Value:=VorgangsName, Next:=True, MatchCase:=False, SearchAllFields:=False
End Sub