Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable aus anderer Datei holen

Variable aus anderer Datei holen
12.12.2022 09:16:21
Tomek
Moin zusammen,
ich habe eine Excel-Datei mit etwas VBA-Code, aus dem heraus eine weitere Datei geöffnet wird. Es werden Variablen an ein dortiges Makro übergeben. Nachdem dieses Makro sein Hexenwerk getan hat, würde ich nun gerne ein paar neue Variablen zurück an das Makro der ersten Datei übergeben. Das gleiche Prinzip wie bei der Übergabe Sheet1 zu Sheet2 kann ich nicht gehen, da Sheet2 später von verschiedenen Dateien angesprochen werden soll. Hier ein wenig aufs wesentliche reduzierter Beispielcode:

Sub Sub1_Sheet1()
Workbooks.open Filename:="Sheet2"
Application.run "Sheet2!Sub1_Sheet2", Var1
End Sub


Sub Sub1_Sheet2(var1)
var2=irgendeinHokuspokus(var1)
End Sub
Bis hierhin funktioniert alles. Jetzt muss nur noch die Var2 zurück ins Sheet1. Hätte Irgendwer vielleicht einen Tipp für mich?
Vielen Dank im Voraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Variable aus anderer Datei holen
12.12.2022 09:34:39
peterk
Hallo

Sub Sub1_Sheet1()
Workbooks.open Filename:="Sheet2"
Application.run "Sheet2!Sub1_Sheet2", Var1, Var2
End Sub
Sub Sub1_Sheet2(var1, ByRef var2)
var2=irgendeinHokuspokus(var1)
End Sub
Peter
AW: Variable aus anderer Datei holen
12.12.2022 10:22:46
Tomek
Vielen Dank für die sehr schnelle Antwort. Leider funktioniert das bei mir nicht. In Sheet2 haben alle Variablen noch die richtigen Werte. Sobald das Makro wieder in Sheet1 zurück springt, haben die Übergabevariablen ihre Startwerte, sprich 0 oder leer. Hier die ungekürzten Übergabezeilen:

Application.Run "'FlacherzeugnisEN10028-2009_TEST.xlsm'!Start_aus_Berechnung", Ws, tAusl, K, K20, Typ


Sub Start_aus_Berechnung(Ws, tAusl, ByRef K, ByRef K20, ByRef Typ)

Anzeige
AW: Variable aus anderer Datei holen
12.12.2022 12:14:11
peterk
Hallo
Folgender Code funktioniert bei mir:

Sub test1()
Dim var1 As Long
Dim var2 As Long
Dim var3 As Long
Dim oapp As Object
Set oapp = Application
oapp.Run "Test2!Test2", 2, var1, var2, var3
Debug.Print var1, var2, var3
End Sub


Sub test2(inp, ByRef outp1 As Variant, ByRef outp2 As Variant, ByRef outp3 As Variant)
outp1 = inp * 5
outp2 = inp * 6
outp3 = inp * 7
End Sub
Peter
AW: Variable aus anderer Datei holen
12.12.2022 20:10:48
Daniel
Ok, das funktioniert
bei mir mit meinens Tests hats nicht funktioniert.
Kannst du mir erklären, was du spezielles macht, damit es funktioniert und und warum es das tut?
Gruß Daniel
Anzeige
AW: Variable aus anderer Datei holen
13.12.2022 09:07:32
peterk
Hallo Daniel
Ich kann Dir Deine Frage leider nicht beantworten.
Set oapp = Application
oapp.Run "Test2.xlsm!Test2", 2, var1, var2, var3
funktioniert, aber
Application.Run "Test2.xlsm!Test2", 2, var1, var2, var3
funktioniert nicht. Also liegt es an der Zuweisung Set oapp = Application.
Hab diesen Idee von folgender Seite übernommen:
https://bettersolutions.com/vba/macros/application-run.htm
Peter
Danke für die Info
13.12.2022 09:45:30
Daniel
Normalerweise geht man ja davon aus, dass so eine Variablenzuweisung keine weiteren Auswirkungen hat.
Aber gut zu wissen.
Danke nochmal.
Gruß Daniel
Anzeige
AW: Variable aus anderer Datei holen
13.12.2022 15:57:28
Tomek
Sorry, dass es mit der Rückmeldung etwas gedauert hat. Ich bin nicht auf Anhieb durch Dein Beispiel durchgestiegen und musste es dann natürlich noch auf meinen Anwendungsfall anpassen. Aber jetzt läuft es.
Ein ganz dickes Dankeschön dafür!
AW: Variable aus anderer Datei holen
12.12.2022 10:34:17
onur 

Sub Sub1_Sheet1()
Workbooks.open Filename:="Sheet2"
Application.run "Sheet2!Sub1_Sheet2", Var1
End Sub
Sub Sub1_Sheet2(var1)
var1=irgendeinHokuspokus(var1) 'var1 wird verändert
End Sub

AW: Variable aus anderer Datei holen
12.12.2022 10:46:49
Tomek
Das geht in meinem Fall leider nicht, da Var1 und Var2 unterschiedlich sind. Anhand von Var1 (in meinem konkreten Fall sind es mehrere Variablen) werden mehrere Vorentscheidungen getroffen und anschließend ein paar andere Werte (Var2) aus umfangreicheren Tabellen interpoliert. Da möchte ich nicht die Eingabewerte überschreiben, sonst steigt da keiner mehr durch. Trotzdem Danke für die Anregung.
Anzeige
AW: Variable aus anderer Datei holen
12.12.2022 10:44:15
Daniel
Hi
Wenn, dann als Funktion mit Rückgabewert.
Eine Variablenübergabe byRef funktioniert zwischen zwei Mappen nicht.
Auf die Schnelle ohne zu testen würde ich vermuten so:

   Sub Sub1_Sheet1()
Workbooks.open Filename:="Sheet2"
X = Application.run ("Sheet2!Sub1_Sheet2", Var1)
End Sub
Function Sub1_Sheet2(var1)
Sub1_Sheet2=irgendeinHokuspokus(var1)
End Sub
Gruß Daniel
AW: Variable aus anderer Datei holen
12.12.2022 11:22:55
Tomek
Mit functions bin ich noch nicht so per Du. Ich muss mir diesen Lösungsansatz genauer anschauen, um ihn auf meine Bedürfnisse anzupassen. Wird etwas dauern, bis ich eine Rückmeldung geben kann. Danke schon mal.
Anzeige
AW: Variable aus anderer Datei holen
12.12.2022 13:17:54
Daniel
In VBA sind Subs und Function eigentlich das gleiche.
Functions haben zusätzlich einen Rückgabewert.
Für den Datenaustausch zwischen Dateien müsstest du diesen Rückgabewert verwenden, da das Application.Run die Werte immer nur byVal übergibt und nicht byRef
dh eine Änderung der Variablen in der aufrufenden Mappe ist nicht möglich.
Gruß Daniel
AW: Variable aus anderer Datei holen
12.12.2022 14:06:24
peterk
Hallo Daniel
siehe mein Beispiel
Peter

302 Forumthreads zu ähnlichen Themen

Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Anzeige
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
Worksheet aus anderer Datei übernehmen
tco99

Hallo zusammen,
ich habe folgende Frage bzw. Bitte:
Ich habe zwei Excel-Dateien. Die eine Datei liegt immer im selben Verzeichnis, immer mit dem Namen "Daten" und hat ein einziges Worksheet mit dem Namen "Daten".
Jetzt müsste per Makro in der zweiten Datei das Blatt "Daten" der er...
05.02.2009 21:00:00
Thread-ID: 1047509
5 Beiträge
Anzeige
Worksheet aus anderer Excel Datei einbinden
Matze

Hallo zusammen!
Ich habe folgendes Vorhaben:
Ich möchte per CommandButton eine andere Excel Datei öffnen, aus dieser die einzelnen vorhandenen Worksheets (5 Stück) kopieren und diese anschließend in die Urpsungsdatei als Worksheet einbinden. Das Öffnen der anderen Excel Datei klappt, b...
26.02.2009 15:06:16
Thread-ID: 1054417
7 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Excelzellen durch Zellen aus anderer Datei füllen
KH

Hallo,
ich möchte folgendes tun:
In einer Exceldatei, in einer Zelle trage ich Kürzel ein (z.B. W1, W2, W3....)
Diese Kürzel sind in einer anderen Datei (Referenzdatei) mit Maßnahmen (Text, 1 Zelle), Nummern (Zahl, 1 Zelle) und Preisen ( Zahl, 1 Zelle) definiert.
W1 - Abriss - 0...
22.04.2009 15:49:17
Thread-ID: 1070395
3 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
Zeilen einlesen aus anderer Excel Datei - Makro
Max

Hallo liebe Forums User,
nachdem meine Suche im Archiv leider nichts ergeben hat, formuliere ich meine Frage einmal:
Ich möchte eine Auswertungsdatei bauen, die Daten aus 20 anderen Sheets einliest. Die externen Datein haben unterschiedliche Namen sind aber strukturell gleich aufgebaut....
06.07.2009 11:13:44
Thread-ID: 1086547
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
2
6
5
2
2
3
5
3
2
3
2
2
3
1
12
4
8
7
6
5
1