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

Ansicht des Beitrags:
Von:
Gast9900		 Datum:
29.11.2016 09:18:51		 Views:
592		 Rating:
     
Antwort:
  Ja
Thema:
Arbeit einer Ressource in MS-Project mit TimeScaleData auslesen funktioniert nicht

Konnte das zweite kleinere Problem lösen. Der Zugrif auf die Methode in der auskommentierten Zeile muss heißen:

resource.TimeScaleData(...).

Der Code hat sich damit etwas verkürzt:

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 resource In task.Resources
                    Set work = resource.TimeScaleData(StartDate:=startTask, _
                                                       EndDate:=endTask, _
                                                       Type:=pjResourceTimescaledWork, _
                                                       TimescaleUnit:=pjTimescaleHours, _
                                                       Count:=1)
                    Debug.Print ("Work: " & work)
                Next resource
        Next task
    End With
End Sub

Ich bekomme allerdings immernoch die Fehlermeldung "Laufzeitfehler '450': Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft".

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
Blau Arbeit einer Ressource in MS-Project mit TimeScaleData auslesen funktioniert nicht
 29.11.2016 09:18:51 Gast9900
NotSolved
20.01.2017 11:48:14 Gast5726
NotSolved