Wert projekt-übergreifend übergeben - wie?
14.09.2006 21:25:34
Karina
ich habe folgendes Problem:
Ich habe 2 Excel-Mappen (also 2 VBA-Projekte) geöffnet und möchte einen Wert übergeben, was aber nicht so recht klappt.
Zur Erklärung:
Im Projekt_B steht folgender Code:
Sub StringNeu()
Dim Ergebnis As String
Dim Dummy As String
Ergebnis = ""
Dummy = "Eins-"
Ergebnis = Application.Run("Projekt_A!Funktion_A", Dummy)
MsgBox Ergebnis & "-" & Dummy
End Sub
Im Projekt_A steht nun folgende Function:
Function Funktion_A(ByRef Dummy As String)
Dummy = Dummy & "Zwei"
MsgBox Dummy
End Function
Die MsgBox in der Funktion_A zeigt auch korrekt "Eins-Zwei" an.
Aber dieses Ergebnis wird nicht wieder an die aufrufende
Sub "StringNeu" aus dem Projekt_B übergeben.
Wie bekomme das gewünschte Ergebnis (Eins-Zwei) in die Variable Ergebnis?
Hoffe ihr könnt mir da helfen.
Gruss Karina