Nächste Blatt einblenden

[o0Julia0o]

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

[26865]

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