---

Unbenannt.jpg

Hallo zusammen,
ich schreibe gerade Macro die Funktion und zuordnung zu gerät erstellen soll. Mit "Hauptgerät" funktioniert es. Wie soll ich aber für unterordnete geräten auch Funktion erstellen? Auf bild links ist stand / rechts ziel.

Set oFunctionsFolder = Application.ActiveProject.FunctionsFolder
  Set oNewObj = Application.ActiveProject.FunctionsFolder.NewChild(aucObjFunction)
  With oNewObj.Attributes
    .ItemByID(aucAttrDesignation).Value = oObj.Name
    Call oNewObj.Store

Für einen Tipp wäre ich sehr dankbar!!!
mfg Jarda

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jarda,

ich kenne mich mit VBA selbst nicht so aus, aber ich kenne einen der sich auskennt

Also hier seine Lösung:

Ich hätte da eine Antwort auf die Frage bzgl VBA-Hilfe.. Aber aufpassen, dass da kein Zeilenumbruch rein kommt.
Die Frage ist nicht ganz eindeutig und deshalb habe ich da zwei Varianten

Sub TestCreateFunction()
Dim oNewFct As ObjectItem

    ' Variante1: neue Funktion immer als neue Wurzel
    '    Set oNewFct = Application.Selection(1).Project.FunctionsFolder.NewChild(aucObjFunction)
    ' Variante2:  neue Funktion soll Kind-Funktion des Vaterdevice werden
    '    Set oNewFct = Application.Selection(1).Parent.TargetAssociations.Filter(aucRoleDeviceToFunction)(1).RelatedObject.NewChild(aucObjFunction)
    oNewFct.Attributes.ItemByID(aucAttrDesignation).Value = Application.Selection(1).name
   
    oNewFct.SourceAssociations.New aucRoleDeviceToFunction, Application.Selection(1)
    Call oNewFct.Store
End Sub

------------------
Grüße aus Hannover
Max M.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Max,
danke erstmal für die schnelle Tips. Funktioniert. Wass ich aber brauche ist es  Neue Funktion anlegen(Variante1) dann Automatisch die Unterordnete zusatzteile(auf dem Bild is Kontakt) nun zu diese Funktion assoziieren.
Danke
Jarda

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP