Voor elk tabblad een standaard beginpositie instellen bij openen.

[kiliboe]

Dag allen,

Na lang zoeken ben ik als Excel-leek achter de code gekomen die ervoor zorgt dat tab 1 bij mij standaard ervoor komt wanneer ik Excel open. (Yes!!)

Nu het volgende. De rest van de tabbladen staan dan helaas nog op de laatst gebruikte positie.
Weet iemand of er ook een code is die ervoor zorgt dat alle tabbladen linksboven uitlijnen (dus vanaf cel a-1, alles zichtbaar) bij het opnieuw opstarten van Excel.

Ik hoop dat mijn vraag duidelijk is.

Thnx alvast!

 

[VenA]

Bij het openen:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For i = Sheets.Count To 1 Step -1
    Application.Goto Sheets(i).Range("A1")
Next i
Application.ScreenUpdating = True
End Sub

Of voor het opslaan:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
For i = Sheets.Count To 1 Step -1
    Application.Goto Sheets(i).Range("A1")
Next i
Application.ScreenUpdating = True
End Sub

Plaatsen in ThisWorkbook