Thema Datum  Von Nutzer Rating
Antwort
23.11.2016 08:50:40 Johannes
NotSolved
29.11.2016 09:18:51 Gast9900
NotSolved
Rot Arbeit einer Ressource in MS-Project mit TimeScaleData auslesen funktioniert nicht
 20.01.2017 11:48:14 Gast5726
NotSolved

Ansicht des Beitrags:
Von:
Gast5726		 Datum:
20.01.2017 11:48:14		 Views:
673		 Rating:
     
Antwort:
  Ja
Thema:
Arbeit einer Ressource in MS-Project mit TimeScaleData auslesen funktioniert nicht

Habe das Problemt gelöst. Der Fehler tritt nicht, wie ich ursprünglich vermutet habe, in Zeite 24 auf, sondern in Zeile 29. In der Variable work repräsentiert ein Objekt und Debug.Print kann kein Objekt ausgeben.

Das oben aufgeführte Skript greift auf die Ressourcen zu, die den Vorgängen zugeordnet sind. Da eine Ressource auch in anderen Vorgängen verplant sein kann, wird mit ressource.work die Arbeit der Ressource über alle Vorgänge ausgegeben, denen die Ressource zugeordnet ist. In meinem Fall würde ich jedoch gerne nur auf die Arbeit zugreifen, die der Ressource für den einen Vorgang zugeordnet ist. Der korrekte Zugriff erfolgt über task.assignment.Item(x).work. Der Code sieht dann folgendermaßen aus:

 

Option Explicit
 
Sub subExportOverview()
     
    Dim mspApplication As MSProject.Application
    Dim Project As MSProject.Project
     
    Dim startTask As Date
    Dim endTask As Date
         
    Dim task As Variant
    Dim resource As Variant
    Dim work As Variant
 
    Set mspApplication = CreateObject("Msproject.Application")
    mspApplication.ScreenUpdating = False
    Set Project = mspApplication.ActiveProject
 
    With Project
        For Each task In .Tasks
            startTask = task.start
            endTask = task.Finish
            For Each assignment In task.Assignments
                    Debug.Print ("Work: " & assignment.work)
                Next resource
        Next task
    End With
End Sub

Grüße
Johannes

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
23.11.2016 08:50:40 Johannes
NotSolved
29.11.2016 09:18:51 Gast9900
NotSolved
Rot Arbeit einer Ressource in MS-Project mit TimeScaleData auslesen funktioniert nicht
 20.01.2017 11:48:14 Gast5726
NotSolved