---

Hallo zusammen,

kann ich auf den Partbody zugreifen unabhängig wie er heist?

Noch ne andere Frage.

Ist es möglich in eine Function/Sub eine Variable zu übergeben, die wiederum eine Function/Sub aufruft?

Habs mal exemplarisch dargestellt.

Code:

---

Dim CallFunction
CallFunction = "AendereParameter"
TreeWalk

CallFunction = "AendereRow"
TreeWalk

Function TreeWalk
..
..

CallFunction paraToChange, DesignRow ' entsprechende Unterfunktion wird aufgerufen
End Funktion

Function AendereParameter
...
...
End Function

Function AendereRow
...
...
End Function

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

moin Uwe,
vielleicht hilft Dir das hier weiter:

Code:

---

Dim part1 'As Part
        part1 = partDocument1.Part

        Dim bodies1 'As Bodies
        bodies1 = part1.Bodies

        Dim body1 'As Body
        body1 = part1.MainBody

---

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

---

Servus Uwe

zu 1:

Code:

---

Set oMainbody = oPart.MainBody

---

zu 2:
Du kannst für jede Funktion/Subroutine Übergabevariablen definieren (auch optionale) siehe zB hier
Eine Function kann dann auch eine weitere Function aufrufen

Gruß
Bernd

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

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

---

Hallo Trilemma, hallo Bernd,

Danke für die Antwort.

Habe das ganze nun so versucht in eine Formel einzubinden.
@Bernd die kennst du ja schon.

Code:

---

MainbodyName = oMainBody.Name
MsgBox MainbodyName
StrFormel = "ToString(round((smartVolume(MainbodyName) * " & MatDensity & ")," & """kg""" & ",2))" & "+ ""kg"""
'StrFormel = "ToString(round((smartVolume(Fertigteil ) * " & MatDensity & ")," & """kg""" & ",2))" & "+ ""kg"""

---

In der MSGBox wird auch der richtige Name angezeigt. Leider wird die Formel (ohne) Inhalt erzeugt.

Habt ihr eine Idee.

@Bernd. Danke für den Link.
Hast du vielleicht noch einen Link auf Deutsch wo das so gut erklärt ist?

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Servus
Du hast wahrscheinlich nur ein paar Anführungszeichen vergessen:

Code:

---

"ToString(round((smartVolume(" & MainbodyName & ") * " & MatDensity &

---

Die Anleitung noch auf deutsch? Sollte in jeder Einfühung7Tutorial zu VBA bzw VB6 drin sein

Gruß
Bernd

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

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

---

Danke Bernd, das wars.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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