---

Hallo,

es gibt eine Satz Parameter der in allen Bauteilen, den Unterbaugruppen und der Hauptbaugruppe verfügbar sein soll.

Wenn ein Bauteile im extra Fenster geöffnet ist, dann werden die Parameter wie gewünscht erstellt.
Wenn die Hauptbaugruppe geöffnet ist, dann werden die Parameter wie gewünscht in der Hauptbaugruppe eingefügt.
Nun sollen bestimmte Bauteile oder Unterbaugruppe in der Hauptbaugruppe ebenfalls diese Parameter bekommen. Dazu sollen diese einzeln in der Hauptbaugruppe selektiert werden und dann die Parameter in dem Dokument (Bauteil oder Baugruppe) erzeugt werden.

Die Selektion soll in einer Subroutine bearbeitet werden. Doch beim Aufruf der Subroutine kommt es zu einem Fehler.
Die Subroutine alleine funktioniert bereits, doch wegen dem Fehler kann das Ergebnis nicht zurückgeben werde.

Die Variable ist wie folgt definiert:
Dim oWorkDocument As PartDocument
und soll das Ergebnis von dem selektierten Dokument zurückgeben.

Der Aufruf der Subroutine ist wie folgt definiert:
Call Document_Selection(oWorkDocument)
und dabei kommt es zu dem Fehler 438

Warum kommt es hierbei zu einem Fehler?

Ist die Definition der Variabel richtig?

Vielen Dank schon mal
und viele Grüße
Reimund

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

---

Servus Reimund

Ist Error 438 nicht, dass ein Objekt nicht eine Methode/Eigenschaft nicht hat/unterstützt?
Was übergibst du denn an die Routine? Ist das das richtige?
In welcher Zeile kommt denn der Fehler?
Mit was hast du es getestet?
Wie sieht den die Unterroutine aus?

Gruß
Bernd

PS: Wie selektierst du ein Dokument in einer Baugruppe?

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank für Deine Antwort mit den Fragen.
On error resume next habe ich ausgeschaltet und damit bin ich dann auf das Objekt gekommen, welches den Error 438 ausgelöst hat. Nun funktioniert auch die Übergabe.
Die Unterroutine hatte ich über Auswertungen im WatchWndow getestet.
In den nächsten Tage weiter ich an dem Makro weiter arbeiten.

Viele Grüße
Reimund

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

---

Servus Reimund

Deshalb On error resume next nur sehr sparsam und bewusst einsetzen (möglichst schnell wieder ausschalten und Fehler auslesen/abfangen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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