He,

Weet er iemand hoe ik een hyperlink laat werken in een vba formulier?
Ik heb een zoekformulier gemaakt met daarin comboboxen die tekstboxen laten zoeken naar waarden in een excel sheet. In die excel sheet staan er mailadressen, webadressen en hyperlinks naar andere file's op mijn harde schijf.
Nu weet ik hoe ik een label moet manipuleren om door een klik naar bv een website te navigeren, maar hoe kan ik een mailadres en dergelijke in een tekstbox laten werken?
Er staat dus geen vaste waarde in deze tekstboxen.

Iemand een idee?

Ik heb nog vragen hoor, maar alles op zijn tijd zeker?

Een bijlage is inderdaad beter om de dingen te verduidelijken.
Als je op een item klikt in de combobox of lijstbox van bv tabblad "gemeenten", dan veranderd de inhoud van de tekstboxen achter de labels. Als je nu op gemeente 1 klikt komt er in de tekstbox achter het label website de website van de gekozen gemeente. Nu krijg ik het niet zover dat dit websiteadres door te klikken ook geopend wordt. Ik weet hoe een hyperlink te laten werken op een label? Maar dan met een vast gegeven. In de tekstboxen veranderd de inhoud naar gelang de gewenste gemeente.

Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
      ThisWorkbook.Sheets("gemeenten").[F2:F30].Select
      Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Deze code heb ik geprobeerd en werk, maar linkt enkel de eerste cel van het bereik. De link die in F2 staat wordt geopend.
Wanneer ik hyperlinks(1) verander in hyperlinks(2) geeft hij de link weer die in cel F3 staat.
Ik zit dus nog steeds aan een vaste waarde vast en niet aan de waarde die in mijn textbox te voorschijn komt.

Tja, helaas...  Ik hoopte nog zo dat deze 'beker' mij zou passeren... Maar nee hoor, óók IK word iedere dag (gelukkig) weer een dagje ouder! 

Ik zou deze beker zeker niet laten voorbijgaan, ouderdom staat voor levenswijsheid. Wat met je antwoord zeker is bewezen.
Dit is inderdaad DE oplossing.
Hoe een simpel lijntje voor een immense oplossing kan zorgen.
En den dezen is supper blij.
Bedankt Moo, hier was ik al lang naar op zoek. En ik moet toegeven niet enkel op dit forum.

Aansluitend mischien nog een vraagje. Kan hetzelfde voor een hyperlink naar een mailadres? Blijkbaar niet met dezelfde code.

Ik heb nog zo'n vraagjes hoor. Dus snel beter worden

Redhead,

Ik heb de @ weggelaten en nu werkt de code. Blijkbaar ziet de code geen @in de textbox staan en geeft de fout weer die je erin hebt geplaatst.
Maar ik kom met dit ook in outlook, en is voor mij voldoende.

Bedankt.

Ik heb nog een vraag over het logo die in mijn userform staat. Ik stel die in een volgend toppic.

jip,

ze werkt (de code dus he)

Ik heb de =1 weggelaten en nu werkt ze.
Als ik het goed begrijp staat de =1 voor de plaatst waar de code zoekt naar de @. Laat me Aub weten als ik het fout heb.

Deze code heb ik nu staan.
Private Sub TextBox6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    If InStr(1, TextBox6.Value, "@") Then
        ThisWorkbook.FollowHyperlink "mailto:" & TextBox6.Value
    Else:
        MsgBox "Geen geldig e-mail adres!", vbOKOnly + vbInformation, "Fout!"
    End If

End Sub
Ik heb ook de code voor de hyperlink aangepast en ziet er nu zo uit;

Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
       
       If InStr(1, TextBox5.Value, "www") Then
        ThisWorkbook.FollowHyperlink TextBox5.Value
    Else:
        MsgBox "Geen geldige webadres!", vbOKOnly + vbInformation, "Fout!"
    End If


End Sub
Laat me weten wat er nog fout in staat (en graag waarom).

Ehhhh...  Maar als die cel toch geen geldig e-mail adres heeft, heb je als gebruiker toch helemaal géén reden om naar Outlook te gaan?

Waarheid als een koe natuurlijk. Probleem was dat als er zelfs niets in de textbox stond, ook outlook geopend werd door dubbel klik.

Maar ze werken alle twee en dat was dus de bedoeling.

Bedankt Redhaed en hopend vlug weerziens op een ander topic.

Den berre,
hierbij een klein excel bestand, hoe ik dat opgelost heb.
Het is een eenvoudige methode waarbij ik cell A1 laat wijzigen met een VLOOKUP.
Niet weergegeven in dit bestand

Firmin

Als ik het goed begrijp staat de =1 voor de plaatst waar de code zoekt naar de @. Laat me Aub weten als ik het fout heb

Kleine uitleg van de functie 'InStr'. Volledig uitgeschreven staat er 'in string'. Ofwel ga tellen hoeveel keer de opgegeven (combinatie) waarde voorkomt in de opgegeven string. Met het '= 1' aan het eind van de vergelijking geef je dus aan dat er verplicht een ampersant in de sting moet zitten. Jij geeft op dit moment géén voorwaarde aan je if-statement, dus wordt elk vergelijk wel 'best' gevonden.... Daarom moet je het '= 1' er bij gebruiken, want dan kan je zien of het een geldig e-mail adres is.

Nog een vraagje,

Kan ik deze code aanpassen dat ik in één sub een reeks textboxen kan aansluiten.
Nu heb ik meer dan twintig "e-mail" tekstboxen en een paar "website" tekstboxen.

Ik zou inderdaad dan voorstellen om 1 sub te schrijven, die je vervolgens aanroept vanuit iedere TextBox 'dubbelklik'. Via een variabele kan je dan meegeven welke textbox er is aangeklikt.

Hmm.. Zou het kunnen dat het zand in de zandloper er nat door wordt?

Kan het zijn dat jij een andere mailclient gebruikt dan Outlook?

Groet, Leo