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