hm, ließe sich glaub ich schneller mit der Suchmaschine lösen, aber vielleicht gibts ja noch fragen dazu:
Ich nehme folgende Ausgangslage an:
Prozedur TestA in mdlModulA:
Sub TestA()
Dim x As Single
Dim x2 As Single
x = 2
x2 = Application.Run("'ProjektB.xlsm'!TestB", x)
Debug.Print x2
End Sub
Prozedur TestB in mdlModulB:
Function TestB(ByVal s As Single) As Single
TestB = s * s
End Function
Hinweis:
- ProjektB muss in diesem Fall geöffnet sein
- Ist ProjektB nicht geöffnet, wird es geöffnet, wenn Du den Pfad voranstellst:= Application.Run("'c:\Test\ProjektB.xlsm'!TestB", x)
|