ich habe folgendes Problem, ich möchte bei diesem Makro alle Sheets mit dem Index in den Grenzen pos+1 und pos+counter in einen Array aufnehmen, dies gelingt mir leider nur für 2 Sheets. Gibt es eine Möglichkeit den Array so zu gestalten, dass er sich dynamisch der Anzahl Sheets anpasst?
pos = Sheets("Data").Index
counter = 0
For i = 1 To 20
If Worksheets("SRC").Range("p" & i) 0 Then
counter = counter + 1
End If
Next
Sheets(Array(pos + 1, pos + counter)).Select