Code kürzen, Buttons springen zu Zeilen

Sub HilfeNavigator1_Klicken()
Call SubNavigation(1)
End Sub
Sub HilfeNavigator2_Klicken()
Call SubNavigation(2)
End Sub
Sub HilfeNavigator3_Klicken()
Call SubNavigation(3)
End Sub
Sub HilfeNavigator4_Klicken()
Call SubNavigation(4)
End Sub
Sub HilfeNavigator5_Klicken()
Call SubNavigation(5)
End Sub
Sub HilfeNavigator6_Klicken()
Call SubNavigation(6)
End Sub
Sub HilfeNavigator7_Klicken()
Call SubNavigation(7)
End Sub
Sub HilfeNavigator8_Klicken()
Call SubNavigation(8)
End Sub
Sub SubNavigation(Buttonnummer As Integer)
Select Case Buttonnummer
Case 1: ActiveWindow.ScrollRow = 11
Case 2: ActiveWindow.ScrollRow = 27
Case 3: ActiveWindow.ScrollRow = 47
Case 4: ActiveWindow.ScrollRow = 67
Case 5: ActiveWindow.ScrollRow = 83
Case 6: ActiveWindow.ScrollRow = 100
Case 7: ActiveWindow.ScrollRow = 113
Case 8: ActiveWindow.ScrollRow = 126
End Select
End Sub