kennt jemand den passenden vba code?
Sub NaechstesBlatt()
On Error Resume Next
ActiveSheet.Next.Activate
End Sub
Sub VorherigesBlatt()
On Error Resume Next
ActiveSheet.Previous.Activate
End Sub
Sub vorher()
If ActiveSheet.Index <> 1 Then
Sheets(ActiveSheet.Index - 1).Activate
Else
MsgBox "Ist bereits das erste Blatt"
End If
End Sub
Sub nächste()
If ActiveSheet.Index <> Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Activate
Else
MsgBox "Ist bereits das letze Blatt"
End If
End Sub