ich möchte folgendes Array flexibel füllen:
Sheets(Array("Tab1", "Tab2", "Tab3")).Select
In etwa so:
If ... then array.add("Tab1")
If ... then array.add("Tab2")
...
Vielen Dank für eure Unterstützung!
PeTeR
Dim varTabs() As Variant,lngN As Long
If ... Then Redim Preserve varTabs(lngN): varTabs(lngN) = "Tab1": lngN = lngN + 1