Hej,
ich habe im Netz ein Macro für das Filtern und Anzeigen der Vorgänger eines markierten Vorgangs im Microsoft Project gefunden. Allerdings ist das gute Stück etwas fehlerbehaftet. Vielleicht weiß hier jemand Rat.
Es führt leider zu einem Laufzeitfehler in den folgenden Zeilen:
' Filter with or without summary tasks
Private Sub FilterMe()
If MsgBox("Do you want to display Summary Tasks?", vbYesNo, "Display Summary Tasks?") = vbYes Then
IsSum = True
Else: IsSum = False
End If
OutlineShowAllTasks
FilterEdit Name:="_Trace", TaskFilter:=True, _
Create:=True, _
OverwriteExisting:=True, _
FieldName:="Flag5", _
Test:="Equals", _
Value:="Yes", _
ShowInMenu:=False, _
ShowSummaryTasks:=IsSum
FilterApply Name:="_Trace"
End Sub
Bereits hier ein herzliches Dankschön für die Mühe!
|