Clever-Excel-Forum

hi, kann ich ohne den Blattnamen zu benennen das nächste Blatt einblenden?

Es gibt ja:
ActiveSheet.Next.Activate
zum Auswählen des nächsten Blattes.

Kann ich aber auch zuvor das nächste Blatt einblenden lassen(ohne den Blattnamen zu nennen)? Ich habe 10 Blätter ausgeblendet, möchte immer nur das aktuelle Blatt anzeigen. Bei Auslösung des Makros per Klick im aktuellen Tabellenblatt wird das nächste Blatt(welches ja aktuell noch ausgeblendet ist) wieder eingeblendet und dann per ActiveSheet.Next.Activate ausgewählt.

So etwas wie:
Next.Sheet.inVisible = xlSheetVisible

Code:
Option Explicit

Sub start()

With ActiveSheet.Next

   .Visible = xlSheetVisible

   .Activate

End With

End Sub

Mit Prüfung, ob es ein nächstes Blatt gibt und mit Ausblenden des zuvor aktiven Blattes:

Code:
Option Explicit

Sub start()

Dim ws As Worksheet: Set ws = ActiveSheet

If Not ws.Next Is Nothing Then

   Application.ScreenUpdating = False

   With ws.Next

      .Visible = xlSheetVisible

      .Activate

   End With

   ws.Visible = xlSheetHidden

   Application.ScreenUpdating = True

End If

End Sub

Kommen andere Blatttypen als Arbeitsblätter in der Mappe vor, musst du den Code entsprechend anpassen, siehe auch meine Hinweise in einem deiner anderen kürzlich erstellten Threads:

Code:
Dim ws As Object

o0Julia0o

EarlFred