Hallo Forumsmitglieder,
ich habe ein Probmlem beim füllen eines Arrays mit worksheets aus verschiedenen Dateien.
Beim ausführen wird immer das letzte Feld gelb markiert

Set wksSteuer = ActiveWorkbook.Worksheets("Steuerung")
'Zugriff auf Daten von CSIM Gruppen C, NX & Komponenten
Set wkb_Q1 = Workbooks.Open(Filename:=wksSteuer.Range("C6").Text, ReadOnly:=True)
Set wks_Q1 = wkb_Q1.Worksheets(2)
'Zugriff auf Daten von CSIM Gruppe Lieferanten- Support
Set wkb_Q2 = Workbooks.Open(Filename:=wksSteuer.Range("C10").Text, ReadOnly:=True)
Set wks_Q2 = wkb_Q2.Worksheets(1)
'Array mit Worksheets füllen
wksQuelle = Array(wks_Q1, wks_Q2)
For anzahlSheets = 1 To 2
DatenQuelle = wksQuelle(anzahlSheets)

Kann mir da jemand weiterhelfen wie man das lösen kann?
Die ganze Datei füge ich als Anhang bei
https://www.herber.de/bbs/user/98364.xlsm
Vielen Dank im Voraus
Chris