2
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!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease 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 06: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
so, endlich.
Hat geklappt! Uwe, vielen Dank, das war sehr hilfreich!
wb2.MyTestfunction
konnte mein VBA allerdings nicht lesen. Ich musste schreiben
retArray = wb2.Application.Run("'Dateipfad'!MyTestfunction")
Nochmal vielen Dank!
MfG
jaydotkay
Hat geklappt! Uwe, vielen Dank, das war sehr hilfreich!
wb2.MyTestfunction
konnte mein VBA allerdings nicht lesen. Ich musste schreiben
retArray = wb2.Application.Run("'Dateipfad'!MyTestfunction")
Nochmal vielen Dank!
MfG
jaydotkay
