Keuzelijst met hyperlinks

[reneemettrie]

Ik heb een tabel gemaakt met hyperlinks die ik op een formulier in een keuzelijst wil zetten (om plaats te sparen).
Maar in de keuzelijst werken ze niet als hyperlink

Heb dan de volgende code geprobeerd maar die resulteert in de fout "opgegeven bestand kan niet worden geopend"

Private Sub cbo_Links_AfterUpdate()
Application.FollowHyperlink Address:=CStr(cbo_Links.Value)
End Sub

Wat gaat hier fout?

 

[reneemettrie]

Het is opgelost maar voor mezelf nog niet heel duidelijk.
In de tabel heb ik 2 velden geplaatst, één met de hyperlink (webadres of email), een ander met de te tonen tekst.
De keuzelijst toont de te tonen tekst maar gebruikt de hyperlink.
De keuzelijst bevat deze code:

Private Sub cbo_Mail_Web_AfterUpdate()
Dim ToFollow As String, Pos As Byte
ToFollow = cbo_Mail_Web.Value
Debug.Print ToFollow
Pos = InStr(ToFollow, "#")
ToFollow = Left(ToFollow, Pos - 1)
Application.FollowHyperlink Address:=ToFollow
End Sub

Het bizarre is de waarde van de keuzelijst.
Bv. voor Google resulteert dit in "http://www.google.com#http://www.google.com#", zodat ik het gedeelte voor de "#" moet gebruiken.

 

[OctaFish]

Da's niet bizar, dat is hoe een hyperlink wordt opgeslagen. Daarom gebruik ik ze nooit op deze manier. Ik was er ook al achter gekomen dat het niet werkend te krijgen is (althans niet met een losse browser) en jouw oplossing lijkt mij dus ook de meest handige.