Rückgabe Objekt-Verweis über Application.Run
Stefan
bitte um einen Tip, wie ich folgendes Problem lösen kann.
Habe zwei unterschiedlichen Arbeitsmappen mit jeweils einem gleichen Klassenmodul XYClass.
Mappe1 ruft nun über:
Set RückgabeXYClass = Application.Run("Mappe2!HalloDatei2")
eine Function HalloDatei2 in der 2. Arbeitsmappe auf.
Dort wird eine Instanz des Klassenmoduls erzeugt, an Mappe1 möchte ich einen Verweis auf dieses Objekt zurückgeben in der Art:
Public Function HalloDatei2() as XYClass
Dim VerweisXYClass = XYClass
Set VerweisXYClass = New XYClass
Set HalloDatei2 = VerweisXYClass
End Function
Da dieses Objekt in Mappe1 ebenfalls definiert ist, sollte es kein Problem geben.
Ein echtes Problem ist aber, das der Rückgabewert immer Nothing ist, obwohl VerweisXYClass existiert.
Ich habe den Umweg über Zuweisung an Variant, Objekt etc. versucht: immer Nothing
Weiß jemand, wie ich einen Objekt-Verweis von einer Mappe in eine andere übergeben kann ?