Excel und VBA - Die Excel-FAQ

Auswahl des jeweils nächsten Blattes

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Auswahl des jeweils nächsten Blattes

Problem: Es soll das jeweils nächste Blatt unter Berücksichtigung ausgeblendeter Blätter ausgewählt werden.

StandardModule: Modul1

Sub SelectSheet()
   Dim iWks As Integer
   iWks = ActiveSheet.Index + 1
   If iWks > Worksheets.Count Then iWks = 1
   Do Until Worksheets(iWks).Visible
      iWks = iWks + 1
      If iWks > Worksheets.Count Then iWks = 1
      
   Loop
   Worksheets(iWks).Select
End Sub