Steuerene Vorgänger

Hallo Shymaa,



mal sehen wie wir dir helfen können.



Wir unterstützen MS Project hier nicht, du kannst jedoch das Problem im

TechNet- Forum melden. Meine Kollegen dort werden dir weiter helfen.



Wenn du weitere Fragen hast, stehen wir dir gerne zur Verfügung.



LG



AEG

Guten Morgen,

hier ist das Makro:

Sub SetFlagForPath()

Dim T As Task

Dim v_Path As String

v_Path = InputBox("0 - Abbruch" & vbCrLf & "1 - Vorgänger" & vbCrLf & "2 - Steuernde Vorgänger" & vbCrLf & "3 - Nachfolger" & vbCrLf & "4 - Gesteuerte Nachfolger")

Select Case v_Path

Case "0"

Exit Sub

Case "1"

HighlightPredecessors Set:=True

Case "2"

HighlightDrivingPredecessors Set:=True

Case "3"

HighlightSuccessors Set:=True

Case "4"

Application.HighlightDrivenSuccessors Set:=True

Case Else

Exit Sub

End Select

For Each T In ActiveProject.Tasks

If Not T Is Nothing Then

Select Case v_Path

Case "0"

Exit Sub

Case "1"

T.Flag20 = T.PathPredecessor

Case "2"

T.Flag20 = T.PathDrivingPredecessor

Case "3"

T.Flag20 = T.PathSuccessor

Case "4"

T.Flag20 = T.PathDrivenSuccessor

End Select

T.Flag20 = T.PathDrivenSuccessor

End If

Next T

End Sub

In Project af die Registerkarte Ansicht - Makros - Visual Basic. Unter ProjectGlobal (Global.MPT) mit der rechten Maustaste auf Module klicken ein ein Modul einfügen. Dann geht rechts ein großes leeres Fenster auf. Dort das Makro von oben einfügen.





Ab diesem Zeitpunkt wird vermutlich bei jedem Start von Project gefragt, ob Makros aktiviert werden sollen. Das Makro kann dann über Ansicht - Makros - Makros anzeigen gestartet werden.

Funktioniert es?

Viele Grüße

Barbara

Hallo Shymaa,

leider gibt es das Feld Pfad-.... nicht in der Benutzeroberfläche.

Per Makro kann man aber darauf zugreifen, und damit zum Beispiel den Wert in Attribut1 übertragen und dann Attribut1 zum Filtern verwenden. Bei großen Projekten kann das aber etwas Zeit erfordern. Ist das eine Option? Dann helfe ich hier gerne weiter.

Viele Grüße

Barbara

Hallo Barbara,

danke für die Rückmeldung. Bitte teilen Sie mir mit, wie die Lösung per Makro aussieht (wo ist diese Einstellung vorzunehmen und was ist einzutragen?)

Danke und viele Grüße

Shymaa

Hallo,

nach deiner Beschreibung war bereits eine Betaversion von Microsoft Office 2010 auf dem Rechner installiert.

Bitte deinstalliere Microsoft Office 2010 vollständig gemäß der nachstehenden Anleitung. Bitte führe die Deinstallation sorgfältig durch:
http://office-blog.net/post/Office-2010-vollstaendig-entfernen-und-erneut-installieren.aspx.


Anschließend kann Microsoft Office 2010 installiert werden.

Viele Grüße

Thomas