Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable aus anderem Workbook übernehmen

Variable aus anderem Workbook übernehmen
30.10.2012 11:57:18
Peter
Guten Tag
Aus meinem Workbook "AAAA.xlsm" rufe ich einen Code in Workbook "BBBB.xls" auf mit Application.Run rPEBE.Value & "!Arbeitsschritte_ausfuehren"
In Workbook "BBBB.xls" wird nun unter anderem eine Dateibezeichnung ermittelt und der Variable strNameDatei zugewiesen.
Meine Frage: Wie kann ich den Inhalt dieser Variable in Workbook "AAAA.xls" übernehmen und weiterverwenden? Am Schluss der Ausführung von "Arbeitsschritte_ausführen" wird die Datei "BBBB.xls" gespeichert und geschlossen.
Gruss, Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
SaveSetting GetSetting
30.10.2012 12:58:23
Erich
Hi Peter,
der Wert muss ja den Ablauf der Prozedur, also auch das Schließen der BBBB.xls, überdauern.
Dann gibt es diese Variable aber nicht mehr im Speicher.
Eine Möglichkeit:
Die Prozedur in BBBB schreibt den Wert z. B. mit SaveSetting,
die aufrufende Prozedur in AAAA liest mit GetSetting, löscht dann evtl. auch mit DeleteSetting.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

AW: Variable aus anderem Workbook übernehmen
30.10.2012 13:15:19
Tino
Hallo,
hier mal eine Variante
Ich rufe mit Application.Run das Makro in der Mappe2 auf,
dieses wiederum ruft auch mit Application.Run ein Makro in der Mappe1 auf
und übergibt dabei die Variable an Mappe1, dort wird der Inhalt in eine
Public oder wie im Beispiel an eine Variable übergeben.
kommt als Code in Modul 
Option Explicit 
Dim varValue 
 
Sub MakroAusMappe1() 
Dim MeVar 
Application.Run "Mappe2.xls!MakroMappe2" 
MsgBox varValue 
varValue = Empty 
End Sub 
 
Sub GlobalVar(varExValue) 
varValue = varExValue 
End Sub
kommt als Code in Modul 
Option Explicit 
 
Sub MakroMappe2() 
Dim MeVariable 
MeVariable = "Test" 
Application.Run "Mappe1.xls!GlobalVar", MeVariable 
End Sub
Gruß Tino

Anzeige
AW: Variable aus anderem Workbook übernehmen
30.10.2012 13:49:35
Peter
Hallo Tino
Ich will das mal versuchen.
Nun habe ich folgendes probliert:
Den in BBBB.xls aufzurufenden Code habe ich mit einem optionalen Argument ersetzt.
Sub Einzelexporte_holen(Optional strDateiname As String)
End Sub

Hier soll der Name der aufzurufenden Datei übergeben werden (optional deshalb, weil der Code ab und zu direkt in BBBB.xls gestartet wird und daher nichts in Datei AAAA.xls zu geschehen hat.
In Datei AAAA.xlsm wollte ich den Code nun wie folgt aufrufen:
Application.Run rPEBE.Value & "!Arbeitsschritte_ausfuehren(" & ThisWorkbook.Name & ")"
Doch scheint etwas mit der Syntax nicht gut zu sein. Auf jeden Fall wird jetzt das Makro (in der Datei BBBB.xls, die offen ist) nicht gefunden. rPEBE.Value im Direktbereich ausgewertet ergibt "BBBB.xls"
Was mache ich falsch?
Gruss, Peter

Anzeige
AW: Variable aus anderem Workbook übernehmen
30.10.2012 15:32:14
Peter
Hallo
Dieses Problem konnte ich auch noch lösen:
nicht so:
Application.Run rPEBE.Value & "!Arbeitsschritte_ausfuehren(" & ThisWorkbook.Name & ")"
sondern so:
Application.Run rPEBE.Value & "!Arbeitsschritte_ausfuehren", ThisWorkbook.Name
(allfällige weitere Argumente würden nach einem weiteren Komma angehängt).
Gruss, Peter

AW: Variable aus anderem Workbook übernehmen
30.10.2012 13:41:37
Nepumuk
Hallo,
mach doch aus der Sub einfach eine Function:
strNameDatei = Application.Run(rPEBE.Value & "!Arbeitsschritte_ausfuehren")

Am Ende der Prozedur Arbeitsschritte_ausfuehren:
Public Function Arbeitsschritte_ausfuehren()
    
    'dein Code
    
    Arbeitsschritte_ausfuehren = strNameDatei
End Function

Gruß
Nepumuk

Anzeige
AW: Variable aus anderem Workbook übernehmen
30.10.2012 14:34:27
Peter
Hallo Nepumuk
Danke für diesen interessanten Hinweis. Das hat so geklappt.
Gruss, Peter

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2