---

Hallo,
kann man einer Userform Parameter mitgeben?
Public Sub Test()

    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    Dim oCompDef As AssemblyComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition

    Call Ebenen.UserForm_Initialize(oCompDef, "test")

End Sub

Public Sub UserForm_Initialize(Komponenten As AssemblyComponentDefinition, name as string)
   
    'Prüfen ob obere WE vorhanden ist
    On Error Resume Next
    Dim oPlane As WorkPlane
    Set oPlane = Komponenten.WorkPlanes.Item(name)
End Sub

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Hi und Moin,

Du kannst

Load UserForm1 verwenden und dann eine Public Function der Form aufrufen z.b. call UserForm1.Foo("123")

UserForm1.Visible = True zeigt die Form dann an.

Gruß
Micha

------------------
Manche Menschen gehen so plötzlich, daß die Zeit für einen Abschied nicht reicht…

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Vielleicht doch noch einmal anders gefragt.

Kann ich auf Parameter, die im Modul deklariert wurden, auch in der UserForm zugreifen?

Kann ich auf Parameter, die in der UserForm deklariert wurden, auch im Modul zugreifen?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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

---

Hallo,

nur wenn du diese als Public Deklariert hast (direkt unterm Option Explicit), wovon ich allerdings abraten möchte.
Jedenfalls wenn dein Projekt etwas größer ist, wird es mit jeder Public unübersichtlicher und schwerer diese Publics dann zu steuern.

Gruß
Micha

------------------
Manche Menschen gehen so plötzlich, daß die Zeit für einen Abschied nicht reicht…

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

@Micha,
da bin voll auf der Leitung gestanden.
Danke.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

   Das Saxregister
  

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