Hallo liebe Wissende,
ich versuche gerade, über ein dynamisches Array diverse Tabellenblätter einzublenden bzw. auszuwählen. Leider bekomme ich immer wieder einen Laufzeitfehler.
In der Tabelle Config stehen (zuvor über Userform eingetragene) Namen der Tabellenblätter (B4 abwärts).
With Sheets("config")
zelle = .Range("B65536").End(xlUp).Row
arr = .Range("B4:B" & zelle).Value
str1 = zelle - 3
For i = 1 To str1
ReDim SheetsArray(i To str1) As String
SheetsArray(i) = .Range("B" & zelle).Value
Debug.Print SheetsArray(i)
zelle = zelle - 1
Next i
Sheets(SheetsArray).Select
End With