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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen