Hyperlink activeren vanuit vba

Status
Niet open voor verdere reacties.
K

Kabebanaan2

Gebruiker
Lid geworden
12 sep 2021
Berichten
6
Goedendag,

Eigenlijk een simpele vraag waarop ik het antwoord niet kan vinden.
Ik heb in Excel een hyperlink staan, deze werkt uiteraard wanneer ik hierop klik.

Graag wil ik dat de link ook geopend wordt wanneer ik middels vba op deze cel kom.
Dus zonder op de cel te klikken wil ik dat de hyperlink geopend wordt,

Gr. KArel
 
Dat kan zo:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        ThisWorkbook.FollowHyperlink Target.Value
    End If
End Sub
 
Lijkt mij vrij irritant. Hoe kom je met VBA in de betreffende cel?
 
Goedemorgen Edmoor,

Het ziet er logisch uit maar resulteert toch in een foutmelding.
In dit voorbeeld staat mijn hyperlink in cel F12.
Wanneer ik handmatig op de link klik, werkt deze wel.

Bekijk bijlage 359569
 
Laatst bewerkt:
Kabebanaan2 zei:
Goedemorgen Edmoor,

Het ziet er logisch uit maar resulteert toch in een foutmelding.
In dit voorbeeld staat mijn hyperlink in cel F12.
Wanneer ik handmatig op de link klik, werkt deze wel.
Klik om te vergroten...

Dan wijzig je in mijn voorbeeld de A1 toch in F12 ?
Je bijlage werkt niet vanwege een irritante bug in dit forum die men maar niet oplost.
 
Laatst bewerkt:
Plaats dan je bijlage via Ga geavanceerd en dan de paperclip.
 
Dat is heel wat anders dan ik liet zien.
Hoe kom je bij Sub xxxxxx() ?
Het moet dit zijn achter het betreffende werkblad, wat ik al in #2 liet zien:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "F12" Then
        ThisWorkbook.FollowHyperlink Target.Value
    End If
End Sub
 
HoiEdmoor,

Nu hebben we 'm :D

Ik had de code in een module gezet i.p.v. in het werkblad.
Werkt nu als een trein.

Dank je voor de support!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan