sneltoets wisselen laatst gebruikte tabbladen

[jac25]

Voor het wisselen tussen tabbladen in excel kun je Ctrl PageUp/PageDown gebruiken. Hij gaat dan het hele rijtje af. Ik heb excelbestanden met veel tabbladen. Is er ook een sneltoets die je gebruikt om te switchen naar "laatst gebruikte tabblad"?

 

[lam201]

Hi,

Er is geen standaard toets daar voor.
Je kunt wel met VBA daar een macro voor schrijven.

de truc is de naam van het werkblad dat je verlaat als variable op te slaan.
Dat lukt niet in VBA, dus moet je die op een werkblad noteren.
Dat kan met dit stukje code, welke je opslaat in ThisWorkbook

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Sheets("Sheet4").Range("A1") = Sh.Name
End Sub

de tweede code (ook in thisworkbook) is om terug te gaan naar het werkblad.

Sub GoWS()

On Error GoTo Err
WS = Sheets("Sheet4").Range("A1")

Sheets(WS).Activate

Exit Sub

Err:

End Sub

deze kan je dan toewijzen aan een toetscombinatie (ALT + F8)


Lambert

 

[Ginger]

...Dat lukt niet in VBA, dus moet je die op een werkblad noteren....

Sla je naam op in een algemeen gedeclareerde variabele. Dan gaat het wel. ;-)

 

[Ginger]

Dit is óók een leuke en handige methode....

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ThisWorkbook.Names.Add Name:="LastSheet", RefersTo:=Sh.Name
End Sub

Sub TerugNaarSheet()
    Sheets([LastSheet]).Select
End Sub

De laatste Sub kan je dan toewijzen aan een toetscombinatie (ALT + F8)