MS Project: VBA Laufzeitfehler '1101': Ungültiger Argumenten

Fragen zu allen anderen Office Anwendungen

Moderator: ModerationP

MS Project: VBA Laufzeitfehler '1101': Ungültiger Argumenten

Beitragvon VBANOOB2021 » 19. Okt 2021, 09:11

Hallo Zusammen.

ich hab ein kleines Problem bei meinem Code.

Bei "Set ctsk = PTP.Tasks(i)" wird mir andauernd der Laufzeitfehler '1101': Ungültiger Argumentenwert ausgeworfen!

PTP ist global als MSProject.Project definiert


Kann mir da jemand weiterhelfen?


Vielen lieben Dank :D


Code: Alles auswählen
Public Function GetValuePlanpaket(cProject As Project, cKlasse As Cl_Planpaket, aName() As Variant) As Cl_Planpaket
    Dim tsk As Task
    Dim ctsk As Task
    Dim cName As String
    Dim cID As Integer, i As Integer
   
    cName = GetValueByAlias(cKlasse.Planpaket, "Planpaket")
    cName = "Planpaket " & cName

    For Each tsk In PTP.Tasks
   
        If tsk.Name = cName Then
       
            cID = tsk.Id
           
            For i = cID To cID + 6
                Set ctsk = PTP.Tasks(i)

               
                If ctsk.Name = aName(0) Then cKlasse.LaPlanungsdauer = ctsk.Duration / Multiplikator 'der Multiplikator = 480
                If ctsk.Name = aName(1) Then cKlasse.LaPrüfworkflow = ctsk.Duration / Multiplikator
                If ctsk.Name = aName(2) Then
                    cKlasse.LaGepVorlauf = ctsk.Duration / Multiplikator
                    Set GetValuePlanpaket = cKlasse
                    Exit Function
                End If
            Next
           
        End If
       
    Next

    'PTP ist Leer
    Set GetValuePlanpaket = cKlasse

End Function
VBANOOB2021
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3
Registriert: 29. Sep 2021, 09:36

Re: MS Project: VBA Laufzeitfehler '1101': Ungültiger Argume

Beitragvon HKindler » 20. Okt 2021, 08:12

Hi,

ohne jetzt MSProject zu kennen: Bist du dir sicher, dass es bei jedem deiner Tasks, die die Bedingung tsk.Name = cName erfüllen noch sechs weitere Tasks gibt? Oder anders herum gefragt: ist der siebtletzte Task derjenige, der sicher der letzte Task mit Namen cName ist?
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6437
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: MS Project: VBA Laufzeitfehler '1101': Ungültiger Argume

Beitragvon VBANOOB2021 » 20. Okt 2021, 13:30

Hi,

danke erstmal für die antwort!

Das sind sozusagen Planpakete mit jeweils den 6 gleichen Vorgängen.

HKindler hat geschrieben:Hi,

ohne jetzt MSProject zu kennen: Bist du dir sicher, dass es bei jedem deiner Tasks, die die Bedingung tsk.Name = cName erfüllen noch sechs weitere Tasks gibt? Oder anders herum gefragt: ist der siebtletzte Task derjenige, der sicher der letzte Task mit Namen cName ist?
VBANOOB2021
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 3
Registriert: 29. Sep 2021, 09:36

Re: MS Project: VBA Laufzeitfehler '1101': Ungültiger Argume

Beitragvon HKindler » 20. Okt 2021, 14:01

Wie gesagt, ich habe keine Ahnung was ein Project.Task ist, aber bist du dir sicher, dass der Task(10) von 15 Tasks NICHT den Namen cName hat? Ist das wirklich sichergestellt? Wenn nicht, dann könnte es sein, dass du mit Set ctsk = PTP.Tasks(i) versuchst wegen For i = cID To cID + 6 (und cID ja den Wert 10 hat) den Task(16) anzusprechen, und den gibt es ja nicht.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6437
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald


Zurück zu Andere Office Fragen (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 9 Gäste