Array veranderen na Sheets.Count

[Tweety1]

Ik gebruik volgende stukje macro
Alleen lukt het me niet om deze zo aantepassen dat het werkt vanaf sheet 2 tot de 1 laatste sheet.

Sub test()
Dim i As Long
Dim Arr As Variant
Arr = Array(1, 2, 3, 4, 5, 6, 7, 8)
For i = LBound(Arr) To UBound(Arr)
With Sheets(Arr(i))
.Activate
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
.FreezePanes = True
End With

End With
Next i
End Sub

 

[edmoor]

Wil je vanaf het 2e arrray element t/m de 1 na laatste gebruiken? Probeer dit dan eens:

Sub test()
    Dim i As Long
    Dim Arr As Variant
    Arr = Array(1, 2, 3, 4, 5, 6, 7, 8)
    For i = LBound(Arr)+1 To UBound(Arr)-1
        With Sheets(Arr(i))
          .Activate
              With ActiveWindow
               .SplitColumn = 0
               .SplitRow = 1
               .FreezePanes = True
              End With
        End With
    Next i
End Sub

Daarnaast lijkt me een Long een beetje erg overdreven als datatype voor de variabele i, maar op zich is dat niet fout.

 

[Tweety1]

Aantal sheets kan veranderen waardoor ik met Array niet kan gebruiken

 

[edmoor]

Zoals ik het laat zien maakt het aantal niet uit. Hij doet dan altijd het 2e array element t/m de 1 na laatste.
Of bedoel je sheets 2 t/m de 1 na laatste? Dan kun je dit doen en heb je de array niet nodig:

    For i = 2 To ActiveWorkbook.Sheets.Count - 1
        'Code
    Next i

 

[Tweety1]

Als er meer dan 8 sheets zijn dan werkt de macro alleen op sheet 2 t/m 7.
Hoe kan ik dat dan aanpassen

 

[edmoor]

Zie aanvulling op mijn vorige reactie.

 

[Tweety1]

Thanks het werkt

 

[Warme bakkertje]

http://www.helpmij.nl/forum/showthread.php/823113-Tabbladen-appart-opslaan
In deze vraag van jou wil je de tabbladen 2 tot de 1 na laatste opslaan.
Voor die loop wordt daar exact dezelfde code gebruikt.
Als je dan al een oplossing krijgt probeer deze dan ook tenminste te begrijpen zodat je geen vragen zoals deze moet stellen als je het antwoord al voorhanden hebt.