Hyperlink/zichtbare/onzichtbare sheets

[VBANoob1]

Hallo allemaal! 

 

Dus, ik heb meerdere vellen die zichtbaar zijn en ook meerdere verborgen. Al deze velllen hebben hyperlinken naar elkaar en weer terug en vice versa. Dankzij een mooie online tutorial heb ik een code in elkaar kunnen zetten om van zichtbare sheets te linken naar verborgen en terug en dat deze dan ook weer verdwijnen. Dat werkt bijna perfect (kan niet hyperlinken naar sheets met nummers in de titel, maar dat overleef ik wel). 

 

Mijn vraag, als vba groentje, is dat ik ook wil linken naar websites (zonder dat de sheet dan verdwijnt) en hyperlinken naar informatie binnen dezelfde sheet (zijn grote sheets). Echter, met de code die ik gebruik verdwijnt de sheet na het klikken op een hyperlink, dus ook als die hyperlink eigenlijk moet leiden naar een plek op die sheet. Hoe kan ik de code aanpassen zodat:

 

1) ik nog steeds kan hyperlinken naar verborgen paginas en terug en dat ze dan weer verdwijnen

2) kan hyperlinken naar websites zonder dat ze verwijnen

3) kan hyperlinken binnen dezelfde sheet zonder te verdwijnen

 

Dit is de code die ik nu aan het gebruiken ben:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress
WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Left(LinkTo, WhereBang - 1)
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAddr = Mid(LinkTo, WhereBang + 1)
Worksheets(MySheet).Range(MyAddr).Select
Target.Parent.Worksheet.Visible = False
End If


End Sub

 

Alvast dank en excuus, nog niet erg goed hierin.

[stegisoft]

Ik ben hier totaal geen specialist maar misschien kan deze pagina (klik) jou helpen.

Als je Engels niet goed kan, kan je met Chrome het laten vertalen.

 

[bakerman]

Denk dat je met deze wel verder kan.

VBANoob1.xlsm