Months.Count-Eigenschaft (Project)

Ruft die Anzahl der Elemente in der Months -Auflistung für ein angegebenes Jahr aus 1984 2149 ab. Schreibgeschützte ganze Zahl.

Syntax

Ausdruck.Count

Ausdruck Eine Variable, die ein "Months"-Objekt darstellt.

Beispiele

Im folgenden Beispiel wird im Direktfenster des VBE gibt die Anzahl der Monate in 2012 12 zurück. Wenn Sie das Jahr 1983 oder 2150 festlegen, ist das Ergebnis "Laufzeitfehler '1101'; Das Argument ist ungültig."

? activeproject.Resources(1).Calendar.Years(2012).Months.Count

Das folgende Beispiel zeigt die Verwendung der Count -Eigenschaft für das Assignments -Objekt. Fordert den Benutzer für den Namen einer Ressource, und klicken Sie dann auf Aufgaben, ohne alle Ressourcen weist diese Ressource.

Sub AssignResource()  
    Dim T As Task ' Task object used in For Each loop  
    Dim R As Resource ' Resource object used in For Each loop  
    Dim Rname As String ' Resource name  
    Dim RID As Long ' Resource ID  
  
    RID = 0  
    RName = InputBox$("Enter the name of a resource: ")  
  
    For Each R in ActiveProject.Resources  
        If R.Name = RName Then  
            RID = R.ID  
            Exit For  
        End If  
    Next R  
  
    If RID <> 0 Then  
        ' Assign the resource to tasks without any resources.  
        For Each T In ActiveProject.Tasks  
            If T.Assignments.Count = 0 Then  
                T.Assignments.Add ResourceID:=RID  
            End If
        Next T
    Else  
        MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation
    End If
End Sub

Siehe auch

Months-Auflistungsobjekt

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.