In dieser Episode geht es um den Unterschied zwischen einer Sub und einer Function.
Und an dieser Stelle der Code der im Makro vorhanden ist.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Option Explicit Dim intFlaeche As Integer Sub main() Dim swApp As SldWorks.SldWorks Set swApp = Application.SldWorks Debug.Print "Vor Zuweisung: " & intFlaeche 'intFlaeche = flaeche(5) flaeche2 6 Debug.Print "Nach Zuweisung: " & intFlaeche End Sub Function flaeche(intSeitenlaenge As Integer ) flaeche = intSeitenlaenge * intSeitenlaenge End Function Sub flaeche2(intSeitenlaenge As Integer ) intFlaeche = intSeitenlaenge * intSeitenlaenge End Sub |
1 2 3 4 5 6 7 8 9 | Option Explicit Sub main() Dim swApp As SldWorks.SldWorks solidworks_object swApp End Sub Sub solidworks_object(swApp As SldWorks.SldWorks) Dim swApp As SldWorks.SldWorks Set swApp = Application.SldWorks End Sub |