Array aus anderer Datei auslesen
Hallo liebe Leute,
ich würde gerne von einem Makro aus ein Datenfeld auslesen, dass in einer anderen Datei liegt.
Genauer:
'das Makro startet ein Makro in einer anderen Datei:
Workbooks.Open strSelectedItem
ActiveWorkbook.Application.Run strSub1
'dort wird u.a. das Public Array strFilesList() mit Dateinamen befüllt. diese Liste von Dateien soll im Hauptmakro zur Verfügung stehen
'Mein Versuch bspw:
MsgBox ActiveWorkbook.strFilesList(1)
'hätte ja klappen können Weiß jemand wie das geht?
Danke und viele Grüße!
ich würde gerne von einem Makro aus ein Datenfeld auslesen, dass in einer anderen Datei liegt.
Genauer:
'das Makro startet ein Makro in einer anderen Datei:
Workbooks.Open strSelectedItem
ActiveWorkbook.Application.Run strSub1
'dort wird u.a. das Public Array strFilesList() mit Dateinamen befüllt. diese Liste von Dateien soll im Hauptmakro zur Verfügung stehen
'Mein Versuch bspw:
MsgBox ActiveWorkbook.strFilesList(1)
'hätte ja klappen können Weiß jemand wie das geht?
Danke und viele Grüße!
Please also mark the comments that contributed to the solution of the article
Content-Key: 234294
Url: https://administrator.de/contentid/234294
Printed on: April 26, 2024 at 08:04 o'clock
2 Comments
Latest comment
Hallo jaydotkay,
du könntest aus dem Makro deiner anderen Datei eine Function machen welche am Schluss das Array zurückliefert, dann kannst du es im aktuellen Makro weiterverwenden.
Beispiel:
Beispiel Funktion in Workbook 2
Grüße Uwe
du könntest aus dem Makro deiner anderen Datei eine Function machen welche am Schluss das Array zurückliefert, dann kannst du es im aktuellen Makro weiterverwenden.
Beispiel:
Dim wb2 As Workbook
' das zweite Workbook soll jetzt mal die andere Datei sein
Set wb2 = Workbooks(2)
' Dort rufen wir dann unsere Funktion auf die uns als Ergebnis das Array liefert
retArray = wb2.MyTestfunction
' Testweise einen Wert aus dem Array ausgeben
msgbox retArray(0)
Beispiel Funktion in Workbook 2
Dim strListFiles(2)
Public Function MyTestfunction()
' dem Array Werte zuweisen
strListFiles(0) = "Wert1"
strListFiles(1) = "Wert2"
' das Array zurückgeben
MyTestfunction = strListFiles
End Function