Ga naar inhoud

Hyperlink/zichtbare/onzichtbare sheets


VBANoob1

Aanbevolen berichten

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.

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.