ich würde gerne einen command button mit dem Befehl: auf das nächste Sheet wechseln belegen.
Weiß jemand den code?
Danke im voraus
Maennle
Sub NaechstesSheet()
Dim bytN As Byte
bytN = ActiveSheet.Index + 1
If bytN > ActiveWorkbook.Sheets.Count Then bytN = 1
Sheets(bytN).Select
End Sub
Sub SheetSpringen()
Dim bytN As Byte
bytN = 12 ' Für 4. Blatt; 6 für 6. Blatt ...
If bytN <= ActiveWorkbook.Sheets.Count Then Sheets(bytN).Select
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Tabelle4").Select ' Für Tabelle4
' Und wenn deine Tabelle z.B. Kostenaufstellung heist dann
' Sheets("Kostenaufstellung").Select
End Sub
Sub SheetSpringen()
On Error Resume Next
Sheets(4).Select ' für Blatt 4 ...
End Sub
Private Sub CommandButton1_Click()
If ActiveSheet.Index < Sheets.Count Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub
Sub Vorsteppen()
On Error Resume Next
ActiveSheet.Next.Select
End Sub
Sub Zurücksteppen()
On Error Resume Next
ActiveSheet.Previous.Select
End Sub