hyperlink / verborgen tabblad

Ronald,

Dit is een mogelijkheid.

Plaats de code in de module ThisWorkbook.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    If Sh.Name = "Blad1" Then

        If Target.Column = 1 Then

            If Len(Target) > 0 Then

                Cancel = True

                With Worksheets(Target.Value)

                    .Visible = True

                    .Activate

                End With

                Sh.Visible = False

            End If

        End If

    Else

        If Target.Address(False, False) = "A1" Then

            If Target = "Terug" Then

                Cancel = True

                With Worksheets("Blad1")

                    .Visible = True

                    .Activate

                End With

                Target.Parent.Visible = False

            End If

        End If

    End If

End Sub

Op Blad1 zet je in kolom A de namen van de werkbladen waar je naar toe wilt kunnen gaan.

Op de bladen waar je naar wilt kunnen, zet je in A1 het woordje 'Terug'.

Als je nu dubbelklikt op een cel in kolom A van Blad1 met als inhoud 'Blad4', dan wordt 'Blad4' zichtbaar gemaakt en geactiveerd en wordt 'Blad1' verborgen.

Dubbelklik je vervolgens op cel A1 (met daarin 'Terug') van 'Blad4' dan volgt het omgekeerde.

Misschien kun je er wat mee.

Jan

Beste JP en Jan,

Als 2 experts het geen goede optie vinden om te werken met hyperlinks, dan ga  ik ook twijfelen.

Ik sta open voor betere suggesties.

Groeten,

Ronald

JP,

Ik weet niet wat je zou willen reproduceren van wat ik schreef, maar wat ik bedoelde is dat jouw code suggereert dat je met Follow naar het andere werkblad gaat en dat dat m.i. niet het geval is.

Je code werkt namelijk niet anders als je die regel weglaat:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

   Application.EnableEvents = False

   If Sheets(Split(Target.SubAddress, "!")(0)).Visible = False Then

      Sheets(Split(Target.SubAddress, "!")(0)).Visible = True

  '    Sh.Range(Target.Range.Address).Hyperlinks(1).Follow

   End If

   Sh.Visible = False

   Application.EnableEvents = True

End Sub

De vetgedrukte regel doet, voorzover ik heb gezien, niets.

Ik heb geprobeerd om met Follow, maar ook met FollowHyperlink naar een ander tabblad te gaan (ook als dat niet is verborgen) en dat lijkt niet te werken.

Zie ik hier iets over 't hoofd of is dit altijd al het geval geweest?

Jan

Jan,

Ik waardeer je input maar kan het blijkbaar niet reproduceren. Het lijkt alleszins niet evident om de hyperlinks naar de goede plaats (cel) te laten gaan als er tabs onzichtbaar zijn en kunnen die 'in de war' geraken. Zelf zou ik ook niet voor hyperlinks kiezen.

JP,

Ik heb sterk de indruk dat jouw code alleen maar werkt omdat je steeds maar 1 blad zichtbaar hebt en de focus daar dus op gelezet wordt en wel op A1.

Zou je bv naar een andere cel willen springen op Sheet3, dan lijkt dat niet te werken.

Zou je bv Sheet2 zichtbaar laten naast Sheet1, dan zal een klik op de link naar Sheet3 ervoor zorgen dat je op Sheet2 uitkomt.

Dat hele Follow en FollowHyperlink lijkt niet te werken binnen een werkboek.

Of mis ik iets?

Jan