Private Sub CommandButton1_Click()
If ActiveSheet.Index < Sheets.Count Then Sheets(ActiveSheet.Index + 1).Select
End Sub
Sub NächstesSheet()
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Sheets(i + 1).Activate
Exit Sub
End If
Next
End Sub