Microsoft macht es seinen VBA Entwicklern nicht einfach auf die Enterprise Custom Fields zuzugreifen. Hierzu ist ein Mechanismus notwendig um auf die Werte zuzugreifen.

Public Function GetField(insFieldName As String) As Double
    On Error GoTo hErr
   
    Dim lnField As PjField
   
    '-- Look for ID
    lnField = FieldNameToFieldConstant(insFieldName)
   
    '-- Return FieldID
    GetField = lnField
   
Exit Function
hErr:
    '-- Error occured
   
End Function

Public Function TaskCustomFields(insEnterpriseCustomFieldName As String) As Long

    Dim lsValue As String
    Dim loTask As Task
    Dim llIDResult As PjField
   
    llIDResult = GetField(insEnterpriseCustomFieldName)

    '-- Loop for all Task in current Project
    For Each loTask In ActiveProject.Tasks
        lsValue = loTask.GetField(llIDResult)
        Debug.Print lsValue
    Next
   
End Function

In MS Project 2007 funktionieren auch die CommandBars nicht wie gewohnt. Für die Umfrangreichen Sicherheitsänderungen wurden die OnAction Properties geändert, verwenden Sie jetzt OnAction="Macro Macroname", dann funktionierts auch wieder mit dem Click auf ein Menue.

Wird ein Popup Menu verwendet sieht der OnAction Wert dann so aus

"Macro ""Modulename.Methode"""

und dies alles in Anführungszeichen!