Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt