Freigeben über

Task.ActualCost Property (Project)

  • Artikel

Ruft ab oder legt die ist-Kosten für den Vorgang. Variant mit Lese-/Schreibzugriff.

Syntax

Ausdruck. ActualCost

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Hinweise

ActualCost -Eigenschaft kann für Zuordnungs- und Task -Objekten (jedoch nicht für Sammelvorgänge) festgelegt werden, wenn das Kontrollkästchen aktuelle Kosten werden immer von Project berechnet auf der Registerkarte Terminplan im Dialogfeld Project-Optionen deaktiviert ist.

Aktuelle Kosten sind ebenfalls für Ressourcen und Zuordnungen verfügbar. Wenn das Kontrollkästchen Aktuelle Kosten werden immer von Project berechnet aktiviert ist, berechnet Project die derzeitigen aktuellen Kosten für den Vorgang aus Ressourcenkostensatz-Tabellen und der aktuellen Arbeit, die von dem Vorgang zugeordneten Ressourcen erledigt wurde. Für den programmgesteuerten Zugriff auf die Ressourcenkostensatz-Tabellen verwenden Sie die CostRateTables -Auflistung.

Beispiel

Im folgenden Beispiel wird der Benutzer aufgefordert, für die Vorgänge des aktiven Projekts, die keine Ressourcen erfordern, die aktuellen Kosten einzugeben. Es wird vorausgesetzt, dass das Kontrollkästchen Aktuelle Kosten werden immer von Project berechnet nicht aktiviert ist.

Sub GetActualCostsForTasks() 
 
 Dim Entry As String ' User input 
 Dim T As Task ' Task object used in For Each loop 
 
 ' Count the resources of each task in the active project. 
 For Each T In ActiveProject.Tasks 
 
 ' If a task has no resources, then prompt user for actual cost. 
 If T.Resources.Count = 0 Then 
 
 Do While 1 
 Entry = InputBox$("Enter the cost for " & T.Name & ":") 
 
 ' Exit loop if user enters number or clicks Cancel. 
 If IsNumeric(Entry) Or Entry = Empty Then 
 Exit Do 
 
 ' User didn't enter a number; tell user to try again. 
 Else 
 MsgBox ("You didn't enter a number; try again.") 
 End If 
 Loop 
 
 ' If user didn't click Cancel, assign actual cost to task. 
 If Not StrComp(Entry, Empty, 1) = 0 Then T.ActualCost = Entry 
 End If 
 
 Next T 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.