Zugriffsbereich in mehreren Tabellen
02.09.2020 09:25:50
Mike
Ich möchte in den Tabellen 102 - 150 den Zugriff einschränken.
Ich könnte vermutlich die Zugriffe von 102 bis 150 wie unten angeführt schreiben, aber gibt es da nicht eine Möglichkeit, den Befehl verkürzt zu schreiben?
Private Sub Workbook_Open()
'Zugriffsbereich einschränken
Tabelle102.ScrollArea = "A10:AA5000"
Tabelle103.ScrollArea = "A10:AA5000"
Tabelle104.ScrollArea = "A10:AA5000"
Application.ScreenUpdating = False
Application.AskToUpdateLinks = False
Application.ScreenUpdating = True
End Sub
LG
Mike