Microsoft Office Tutorials and References
In Depth Information
5.5.2 Code in einer anderen Datei
Sub Summe1(a As Integer, b As Integer)
MsgBox"Summe1:"&(a+b)
End Sub
Function Summe2(a As Integer, b As Integer) As Integer
Summe2 = a + b
End Function
Zuletzt der Code im Klassenmodul zum Objekt Tabelle1 :
Sub Summe3(a As Integer, b As Integer)
MsgBox"Summe3:"&(a+b)
End Sub
Function Summe4(a As Integer, b As Integer) As Integer
Summe4 = a + b
End Function
Zur Erläuterung:
Prozeduren und Funktionen in Code-Modulen sind vom Typ Public ,
falls sie nicht explizit mit Private Sub bzw. Private Function defi-
niert werden. Daher können die Prozedur Summe1() und die Funktion
Summe2() aus Modul2 direkt aufgerufen werden.
Public
Prozeduren und Funktionen in Klassenmodulen sind vom Typ Pri-
vate . Daher können die Prozedur Summe3() und die Funktion
Summe4() aus dem Klassenmodul zu Objekt Tabelle1 nur aufgerufen
werden, wenn man sie inklusive des Namens des Klassenmoduls auf-
ruft, also: <Klassenmodulname>.<Prozedurname>
Private
5.5.2
Code in einer anderen Datei
Es folgt ein Beispiel für Prozeduren und Funktionen in einer anderen
Datei. Diese muss in Excel geöffnet sein, damit der Code genutzt werden
kann. Zunächst der Code im Code-Modul Modul1 in dieser Datei:
Andere Datei
Sub ModularAndereDatei()
Workbooks.Open ThisWorkbook.Path & "\Mappe5Mod.xlsm"
' Aufruf in and. Datei, mit Modulangabe und Parametern
Application.Run "Mappe5Mod.xlsm!Modul1.Summe5", 3, 5
MsgBox"Summe6:"&Application.Run_
("Mappe5Mod.xlsm!Modul1.Summe6", 3, 5)
Application.Run "Mappe5Mod.xlsm!Tabelle1.Summe7", 3, 5
MsgBox"Summe8:"&Application.Run_
("Mappe5Mod.xlsm!Tabelle1.Summe8", 3, 5)
End Sub
Search JabSto ::




Custom Search