Искам да направя макрос, който получава стойностите на ресурсите на задачата („Erträge“ и „Kosten“) и да задам тези стойности на променливи, за да мога да ги използвам за изчисляване на неща 
Използвам „За всеки t в ActiveProject.Tasks“, за да направя същото с всички задачи, единственият ми проблем е, че не знам как да получа тези стойности от „Ressourcenamen“.
Примерен код за моето изчисление:
Sub Macro1()
Dim E As Double
Dim A As Double
Dim test As Double
For Each t In ActiveProject.Tasks
test = E + A + test
Debug.Print test
Next t
End Sub
„Е“ и „А“ трябва да са ресурсите.
