Share via


Task.ActualDuration property (Project)

Ruft ab oder legt die aktuelle Dauer (in Minuten) eines Vorgangs. Nur Lesezugriff für Sammelvorgänge dar. Variant- Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. ActualDuration

Ausdruck Eine Variable, die ein Task-Objekt darstellt.

Beispiel

Im folgenden Beispiel werden die Vorgänge des aktiven Projekts markiert, deren aktuelle Dauer eine angegebene Anzahl von Minuten überschreitet.

Sub MarkLongDurationTasks() 
 
 Dim T As Task ' Task object used in For Each loop 
 Dim Minutes As Long ' Duration entered by user 
 
 ' Prompt user for the actual duration, in minutes. 
 Minutes = Val(InputBox$("Enter the actual duration, in minutes: ")) 
 
 ' Don't do anything if the InputBox$ was cancelled. 
 If Minutes = 0 Then Exit Sub 
 
 ' Cycle through the tasks of the active project. 
 For Each T In ActiveProject.Tasks 
 ' Mark a task if it exceeds the duration. 
 If T.ActualDuration > Minutes Then T.Marked = True 
 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.