SheetsArray
07.10.2016 14:58:31
Paddy
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