Gruppe
Allgemein
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