Tabellenblätter intelligent durchblättern

[LoreHaubrich]

Hallo liebe Excel VBA Gemeinde,

ich brauche dringend Eure Hilfe. Ich möchte meine einzelnen Tabellenblätter durchblättern. Das Besondere: Erreiche ich das letzte Tabellenblatt wird wieder mit dem ersten Blatt weitergemacht, erreiche ich
das erste Tabellenblatt wird mit dem letzten Blatt weitergemacht. Also so eine Art Schleife.
Hat jemand eine Idee wie man so etwas mit VBA programmieren könnte?

Vielen Dank für Eure Ideen und Hilfen im voraus.

[Kuwer]

Hallo Lore,

Code:

Sub BlattVor()
  If ActiveSheet.Index = Sheets.Count Then
    Sheets(1).Activate
  Else
    Sheets(ActiveSheet.Index + 1).Activate
  End If
End Sub

Sub BlattZurueck()
  If ActiveSheet.Index = 1 Then
    Sheets(Sheets.Count).Activate
  Else
    Sheets(ActiveSheet.Index - 1).Activate
  End If
End Sub

Gruß Uwe

[LoreHaubrich]

Vielen Dank für die schnelle Antwort.