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.SubAddressWhereBang = InStr(1, LinkTo, "!")If WhereBang > 0 ThenMySheet = Left(LinkTo, WhereBang - 1)Worksheets(MySheet).Visible = TrueWorksheets(MySheet).SelectMyAddr = Mid(LinkTo, WhereBang + 1)Worksheets(MySheet).Range(MyAddr).SelectTarget.Parent.Worksheet.Visible = FalseEnd IfEnd Sub
Alvast dank en excuus, nog niet erg goed hierin.