Cel bereik bepalen

[alsoft]

Kan iemand mij vertellen hoe ik een bepaald aantal Kolommen en rijen kan laten zien in mijn blad.

b.v. Ik gebruik alleen de kolommen a t/m az en de rijen 1 t/m 100

Alle overige kolommen en rijen wil ik niet getoond hebben.

 

[Warme bakkertje]

In ThisWorkbook bij Workbook_Open

Worksheets(1).ScrollArea = "a1:az100"

Mvg

Rudi

 

[alsoft]

ScrollArea

In ThisWorkbook bij Workbook_Open

Worksheets(1).ScrollArea = "a1:az100"

Mvg

Rudi

Rudi

Kan deze script ook gebruikt worden als ik 5 tabbladen in gebruik heb.
Ik wil voor elk tabblad een ScrollArea dus hebben

 

[Warme bakkertje]

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        sh.ScrollArea = "A1:AZ100"
    Next sh
End Sub

Mvg

Rudi

 

[alsoft]

Script

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        sh.ScrollArea = "A1:AZ100"
    Next sh
End Sub

Mvg

Rudi

Geweldig het werkt prima, bedankt