Excel Navigation über Arbeitsblätter | Sheets Navigation | Navigationsmenü | VBA for Beginner

In Excel eine Navigation einführen, worüber du in zwischen den Arbeitsblättern (sheets) wechseln kannst. Ich stell hier einmal ein Klassisches NavigationsMenu vor und einmal als Back – Menu – Next Navigation

Sub Menue_Klicken()
Sheets(„Übersicht“).Select
End Sub
Sub Top1_Klicken()
Sheets(„Top1“).Select
End Sub
Sub Top2_Klicken()
Sheets(„Top2“).Select
End Sub
Sub Top3_Klicken()
Sheets(„Top3“).Select
End Sub
Sub Top4_Klicken()
Sheets(„Top4“).Select
End Sub

Sub Next_Klicken()
Dim AnzahlSheets As Integer
AnzahlSheets = ThisWorkbook.Sheets.Count
If ActiveSheet.Index < AnzahlSheets Then
Sheets((ActiveSheet.Index + 1)).Select
Else: Sheets(1).Select
End If
End Sub

Sub Pre_Klicken()
Dim AnzahlSheets As Integer
AnzahlSheets = ThisWorkbook.Sheets.Count
If ActiveSheet.Index = 1 Then
Sheets(AnzahlSheets).Select
Else: Sheets((ActiveSheet.Index – 1)).Select
End If
End Sub

Schreibe einen Kommentar