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!
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 234294
Url: https://administrator.de/forum/array-aus-anderer-datei-auslesen-234294.html
Ausgedruckt am: 21.05.2025 um 19:05 Uhr
2 Kommentare
Neuester Kommentar
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
