bekomme eine Fehlermeldung. Fehler beim Kompilieren: Variable nicht definiert
Hier mal den VBA Text
siehe Pfeil ,dort wird der Text blau markiert
Option Explicit
Sub Sheetswitch(ws As String)
Application.ScreenUpdating = False
Sheets(ws).Select
With ActiveWindows -------
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
.ScrollColumn = 1
.ScrollRow = 1
End With
Application.ScreenUpdating = True
End Sub
Sub Nav_Startseite()
Call Sheetswitch("Startseite")
End Sub
Sub Nav_FTStunden()
Call Sheetswitch("FTStunden")
ActiveWindows.DisplayVerticalScrollBar = True
End Sub
Sub Nav_Zugriffsrechte()
Call Sheetswitch("Zugriffsrechte")
ActiveWindows.DisplayVerticalScrollBar = True
End Sub
Sub Nav_FTStd()
Call Sheetswitch("FTStd")
End Sub