Via knop naar volgend of vorig tabblad gaan

[Johannes]

Ik heb 52 tabbladen die wk 1, wk 2 enz genoemd zijn.
Er is echter altijd maar een tabblad zichtbaar.
Ik wil graag op deze bladen 2 knoppen maken om naar een volgend of vorig
tabblad te gaan. Dus het actuele blad moet dan weer verborgen en het
volgend/vorig weer zichtbaar gemaakt worden.

[Niek Otten]

Bedoel je echt de tab of bedoel je het hele tabblad?
In het eerste geval zitten die knoppen al onderin, naast de tabs.
In het andere geval: neem een macro op terwijl je van het ene naar het
andere blad gaat en verbergt. Daarna de macro een beetje aanpassen.

--
Kind regards,

Niek Otten

"Johannes" <Joha...@discussions.microsoft.com> wrote in message
news:E40183D0-3470-477C...@microsoft.com...

[Johannes]

Niek,

De knopppen onderin naast de tabs zijn ook onzichtbaar gemaakt.
Het moet dus met een macro gebeuren.
Als ik een echter macro opneem wordt er een specifieke naam voor het
volgende of vorig blad toegekend en dat werkt dus weer niet als je op een
ander blad staat.

gr, Johannes

"Niek Otten" schreef:

[Jeroen]

Johannes

de volgende code moet je in 'Thisworkbook' plaatsen
je kunt daarna volgendblad en vorigblad toewijzen aan de knoppen die je
daarvoor gemaakt hebt. Als je vragen hebt oer de code...stuur gerust een
mailtje

Public Sub volgendblad()
Call blader(1)
End Sub

Public Sub vorigblad()
Call blader(-1)
End Sub

Private Sub blader(intStap As Integer)
Dim intHuidigBlad As Integer
Dim intNieuwBlad As Integer

Application.ScreenUpdating = False
intHuidigBlad = ActiveSheet.Index
If ((intHuidigBlad = 1) And (intStap = -1)) Then
intNieuwBlad = 52
ElseIf ((intHuidigBlad = 52) And (intStap = 1)) Then
intNieuwBlad = 1
Else
intNieuwBlad = intHuidigBlad + intStap
End If
Worksheets(intNieuwBlad).Visible = True
Worksheets(intNieuwBlad).Activate
Worksheets(intHuidigBlad).Visible = False
Application.ScreenUpdating = True
End Sub

--
Jeroen van Nieuwkerk
JevniPro...@hotmail.com

"Johannes" schreef:

[Luc Heyndrickx]

Hallo Johannes,

Maak deze twee macro's:

Sub Terug()
Sheets(ActiveSheet.Index - 1).Select
End Sub
Sub Verder()
Sheets(ActiveSheet.Index + 1).Select
End Sub

Kan je op elk werkblad gebruiken.
Het eerste werkblad hoeft uiteraard geen knop Terug
En het laatste hoeft geen knop Verder.

Luc

"Johannes" <Joha...@discussions.microsoft.com> schreef in bericht
news:E40183D0-3470-477C...@microsoft.com...

[Johannes]

Dit werk precies xoals ik bedoelde!!
Hier was ik zelf nooit opgekomen, bedankt!

"Jeroen" schreef: