Hyperlink naar verborgen tabblad

[rsleurink]

Hallo Tweaker,

Ik ben bezig met een sheet te maken om data te analyseren.
Hiervoor heb ik verschillende tabbladen gemaakt waar de data opstaat en een index met hyperlinks naar elk tabblad.

Omdat het heel veel tabbladen gaan worden wil ik de tabbladen achter "Index" verbergen alleen dan werken de hyperlinks niet meer.


Hiervoor heb ik al de volgende code toegevoegd aan MVB maar dan krijg ik de volgende foutmelding:

Code
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim shtName As String
shtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Sheets(shtName).Visible = xlSheetVisible
Sheets(shtName).Select

End Sub


Foutmelding




Hoe kan ik dit oplossen?

Alvast bedankt!

[MrSenne]

Moet het niet Sheets(shtName).Visible = True zijn?

[Lustucru]

Kijk eens naar de waarde van shtname

[rsleurink]

MrSenne schreef op dinsdag 8 december 2020 @ 17:40:
Moet het niet Sheets(shtName).Visible = True zijn?

Als ik er True achter zet gebeurd er helemaal niks meer

[rsleurink]

Lustucru schreef op dinsdag 8 december 2020 @ 18:01:
Kijk eens naar de waarde van shtname

Als ik er met mijn muis op ga staan geeft hij wel de juiste sheet weer.

[dix-neuf]

Lustucru bedoelt waarschijnlijk dat je een functienaam niet als bladnaam moet gebruiken.

[Lustucru]

rsleurink schreef op donderdag 10 december 2020 @ 11:48:
[...]

Als ik er met mijn muis op ga staan geeft hij wel de juiste sheet weer.

Je hebt een brilletje nodig. De inhoud van de variabele is 'bladnaam' en daarin staan toch echt twee enkele aanhalingstekens te veel.

[rsleurink]

Lustucru schreef op donderdag 10 december 2020 @ 13:24:
[...]


Je hebt een brilletje nodig. De inhoud van de variabele is 'bladnaam' en daarin staan toch echt twee enkele aanhalingstekens te veel.

Dan krijg ik de volgende foutmelding:

[g0tanks]

rsleurink schreef op donderdag 10 december 2020 @ 16:16:
[...]


Dan krijg ik de volgende foutmelding:
[Afbeelding]

Waarom heb je het uitroepteken in de oorspronkelijk code aangepast? Zo werkt het sowieso niet.

In plaats van klakkeloos code over te nemen heb je er wellicht meer aan om losse functies op te zoeken en de code te begrijpen. De variabele shtName moet de naam van de sheet krijgen waar je naar toe wil met de hyperlink. Schijnbaar gebeurt dat nu niet. Zoals @Lustucru suggereert moet je dan kijken wat voor waarde er dan wel wordt toegewezen.

[rsleurink]

g0tanks schreef op donderdag 10 december 2020 @ 21:07:
[...]


Waarom heb je het uitroepteken in de oorspronkelijk code aangepast? Zo werkt het sowieso niet.

In plaats van klakkeloos code over te nemen heb je er wellicht meer aan om losse functies op te zoeken en de code te begrijpen. De variabele shtName moet de naam van de sheet krijgen waar je naar toe wil met de hyperlink. Schijnbaar gebeurt dat nu niet. Zoals @Lustucru suggereert moet je dan kijken wat voor waarde er dan wel wordt toegewezen.

Bedankt voor de tip, dit heb ik gedaan en nu werkt hij inderdaad wel.
Thnx allen