---

Hallo Leute,

vor einiger Zeit muß hier schon mal ein Makro gepostet worden sein, das die Kosten einer IAM aus den Einzelteilen aufsummiert. Laut Suchen-Funktionen gibt es da einen Thread. Und der ist nicht mehr da!?!

Hat jemand das Makro noch ??

------------------

Gruß Lothar

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

---

Hi Leute,

aufwachen - ein bischen Aktivität tut dem Forum gut 

------------------
Gruß Lothar

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

---

Hallo Zusammen,
das Macro würde mich auch interessieren...
Danke
Gruß Martin

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

---

Cost.bas.txt

Hallo Leute,

was lange währt wird endlich gut.

Jetzt habe ich Euch mal mein Makro zur Ermittelung der Assembly-Kosten angehängt. --->

Es geht durch das gesammte  Assembly und addiert die Kosten für jedes Teil - auch für die Subassemblies. Dort in den Subassemblies kann man dann die Kosten für Schweißen und Zusammenbauen etc. unterbringen.

Mit diesem Tool ist es auch möglich, die gesamten Teile auflisten zu lassen und diesen Datenhaufen in eine Datei zu packen. Es können alle iProperties der Teile mitgespeichert werden. Bei Bedarf kann man das dann mit Excel nachbearbeiten.

Das Ganze ist ansonsten ohne Komfort. Bei Änderungen ist eben ein bischen VBA gefragt.

Viel Spaß damit

------------------
Gruß Lothar

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

---

Hi,

leider habe ich eine Funktion nicht mit eingefügt:

Public Function Property_lesen(oDoc As Document, sPropName As String) As Variant
' Liest eine Property.
' Ist die Property nicht vorhanden, so wird "" zurückgegeben.

    Property_lesen = ""

    ' Obtain the PropertySets collection object
    Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets

    Dim oProp As Property
   
    ' Iterate through all the PropertySets one by one using for loop
    Dim oPropSet As PropertySet
    For Each oPropSet In oPropSets
   
        For Each oProp In oPropSet
            'Debug.Print oProp.Name
            If oProp.Name = sPropName Then
                Property_lesen = oProp.Value
                Exit For
            End If
        Next
       
    Next

End Function
 

Dieser Funktionsaufruf steuert den Durchlauf durch Unterbaugruppen. Falls dieser Merker nicht vorhanden ist, wird die Unterbaugruppe mit durchgearbeitet, ansonsten nicht. Beispielsweise wenn man eine Zukaufbaugruppe selbst modellieren muß, dann kann man die Kosten dafür der Baugruppe anhängen und die Einzelteile dieser Baugruppe werden nicht berücksichtigt.

------------------
Gruß Lothar

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