tabbladen verbergen

[Gtw19]

Forumvrienden,

Kort vraagje....
Bestaat er een mogelijkheid om tabbladen die gebruikt worden via een hyperlink te verbergen maar dat deze toch nog bruikbaar zijn wanneer aangeklikt?

Alvast bedankt

Mvg,
Gtw

 

[emields]

beste Haije

mijn excuses, maarja... nieuw he

Hierbij dan een voorbeeldbestandje

met groeten
GTW

 

[Gtw19]

Beste Emields,

ik dacht dat dit voor deze vraag niet nodig was.
Hierbij dan

Mvg,
Gtw

 

[JEC.]

Zet deze achter je werkblad.
Zorg er wel voor dat de naam in de cel precies overeenkomt met de naam van het tabblad, dus zonder spaties.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
a = Target.Parent
Sheets(a).Visible = True
Sheets(a).Select
End Sub

 

[Gtw19]

@JVeer,

Kan ik veronderstellen dat je, in dit gevel het voorbeeldbestandje, je opdracht het volgende is

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
a = Target.Parent
Sheets(blad1).Visible = True
Sheets(blad1).Select
End Sub

En dien ik dit dan te doen voor alle tabbladen? ( zijn er wel 72 )
graag uw raad.

Mvg,
Gtw

 

[JEC.]

Staan al je hyperlinks op 1 tabblad?

 

[Gtw19]

neen
het zijn 72 tabbladen met specifieke informatie aangaande de hyperlinks

 

[JEC.]

Als je deze achter de module van ThisWorkbook plaatst zou het goed moeten gaan, mits de tekst van de hyperlink identiek is aan de tabbladnaam.

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
a = Target.Parent
Sheets(a).Visible = True
Sheets(a).Select
End Sub

 

[Gtw19]

Beste JVeer,

De hyperlinks zijn identiek aan de namen van de tabbladen
Ik pas je voorbeeld even toe en kom hierop terug naar jou.

Alvast mijn dank.

Mvg
Gtw

 

[Gtw19]

@JVeer,

Jou oplossing loopt als een trein!!!
Super
mijn dank hiervoor en buig nederig het hoofd:d:d:d

Ik zet deze topic als opgelost!

Mvg,

gtw

 

[JEC.]

:d

 

[Gtw19]

@JVeer,

Oei het vreugdedansje te vroeg laten ontvlammen....

Als een hyperlink is aangeklikt opent deze het gevraagde tabblad maar bij terugkeren naar de hoofdpagina blijft deze nu wel zichtbaar en dat is eigenlijk niet de bedoeling.
Deze zou na het sluiten ervan ook terug moeten verdwijnen.

Heb je nog wat stroom om de trein in de juiste wissel te krijgen??

Alvast mijn dank

Mvg,
Gtw

 

[JEC.]

Haha zijn alle tabbladen verborgen of niet allemaal?

 

[Gtw19]

@JVeer

Alle tabbladen behalve het tabblad met de hyperlinken ( "strategie") en het tabblad ( "organisatie") zijn zichtbaar
de rest is allemaal verborgen

 

[JEC.]

Voor in je voorbeeldbestand achter thisworkbook. Die kun je weer vertalen naar je eigen bestand

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
a = Target.Parent
Sheets(a).Visible = True
Sheets(a).Select
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
c00 = Sh.Name
[COLOR="#FF0000"]Sheets(c00).Visible = c00 = "Blad1"[/COLOR]
End Sub

Dus rode regel aanpassen naar

Sheets(c00).Visible = c00 = "Strategie" Or c00 = "Organisatie"

 

[Gtw19]

Beste JV

En nu met quasi 100% zekerheid doen we een vreugdedansje en loopt de oplossing gelijk een liertje :d:d:d
Nogmaals mijn dank en een nederige buiging ( verdorie direct de rug naar de bliksem) :d

Ik zet deze Topic nogmaals als voor bijna 100% opgelost

Mvg,
Gtw

 

[JEC.]

Mooizo Succes verder!