Variable aus anderem Makro anderer Mappe verwenden

Sub GetContent_Menu1(control As IRibbonControl, ByRef XMLString) 'Call Menü zusammenstellen 'Application. Dim aString As String aString = Application.Run(appMenu & "!allgemein.build_dynmenu", xmlComplete) 'Menü befüllen If aString "" Then XMLString = aString End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…anderen VBAProjekt auch bekannt sein, Steffen!
Dazu sind folgende Schritte erforderlich:
1. Vergib eindeutige (Code-)Namen an die VBAProjekte der Mappen (statt VBAProjekt), zumindest aber an das, welches die Public-GlobalVariable enthält!
2. Vergib ebenso eindeutige (Code-)Namen an die Mappen selbst (statt DieseArbeitsmappe), zumindest aber an die, welche die Public-GlobalVariable enthält, falls die Variable im DokumentKlassenModul der Mappe stationiert wird, zB Map1!
3. Setze im VBE bei der 2.Mappe einen Verweis auf das VBAProjekt der 1.Mappe! Das geht nur, wenn dieses lt 1. einen eindeutigen Namen hat, zB Test1.
4. Nun kannst du die Variable in der 2.Mappe wie folgt aufrufen:
4.1 Im Falle der Deklaration der Variablen in einem NormalModul mit Test1.pVar1 für pVar1 als Name der Variablen.
4.2 Im Falle der Deklaration der Variablen im KlassenModul der 1.Mappe Map1.gVar1 für gVar1 als Name der Variablen.
Als Test kannst du ja mal beide Varianten gleichzeitig versuchen:
KlassenModul von Mappe1:

Public gVar1$
Private Sub Workbook_Open()
gVar1 = "Hallo"
pVar1 = "Welt!"
End Sub

NormalModul von Mappe1:
Public pVar1$
In einem NormalModul von Mappe2 dann:

Sub Test2()
MsgBox Map1.gVar1 & " " & Test1.pVar1
End Sub

Gruß, Luc :-?

Hi
etwas sauberer ist vielleicht die Methode mit CustomDocumentproperties (Benutzerdefinierte Dokumenteigenschaften).
lege zuerst in der einen Mappe, in der du den Überabewert erstllst, so eine Benutzerdefinerte Dokumenteigenschaft an.
hierzu aktivierst du die Mappe und gibst im Direktfenster des VBA-Edtiors folgenden Befehl ein:

activeworkbook.CustomDocumentProperties.Add Name:="Übergabewert", LinkToContent:=False, Type:=msoPropertyTypeString, Value:="xxx"

um jetztn in der Mappe2 die Werte zu befüllen verwendest du den Code:


ThisWorkbook.CustomDocumentProperties("Übergabewert").Value = "Hallo Welt"

um aus der anderen Datei heraus diesen Wert auszulesen verwendst du:

 Msgbox Workbooks("Mappe2.xlsm").CustomDocumentProperties("Übergabewert").Value

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Variable aus anderem Makro anderer Mappe verwenden

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variable aus anderem Makro anderer Mappe verwenden

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread