Danke im Vorraus,
Christian
Sub Tabellen()
Dim arr1(), i As Integer, wksCnt As Integer
wksCnt = Worksheets.Count
ReDim arr1(wksCnt)
For i = 1 To wksCnt
arr1(i) = i
Next i
Sheets(arr1).Select
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen