ich möchte in meiner Tabelle den Arbeitsbereich so einschränken, dass nur der Bereich A1:M39 angezeigt wird.
Dass sollte auf allen Tabellenblättern gelten.
Wie kann ich das mit einem Makro lösen.
Vielen Dank für die Hilfe.
Henri Brumme
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet, rc As Long
For Each ws In Worksheets
rc = ws.Rows.Count
ws.Columns("N:IV").Hidden = True
ws.Rows("40:" & rc).Hidden = True
ws.ScrollArea = "$A$1:$M$39"
Next
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet, rc As Long
For Each ws In Worksheets
If Not ws.Name = "Grundeinstellungen" Then
rc = ws.Rows.Count
ws.Columns("N:IV").Hidden = True
ws.Rows("40:" & rc).Hidden = True
ws.ScrollArea = "$A$1:$M$39"
End If
Next
End Sub