• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Een hyperlink openen vanuit een cel via VBA

Status
Niet open voor verdere reacties.

ronald1986

Gebruiker
Lid geworden
2 apr 2010
Berichten
296
Goedenavond,

Ik probeer een website te open in een browser waarvan het adres in een cel staat. Ik heb de volgende regel gebruikt:

Code:
ThisWorkbook.FollowHyperlink Address:=Sheets("Ronald").Range("M7").Value, NewWindow:=True

In cel A7 staat: www.ronald.com (is een fictief adres)
Maar ik krijg dit niet werkend. Hoe kan ik een browser openen met de website die genoemd staat in cel M7?
Iemand die mij hierbij kan helpen?

Bvd!
 
Misschien moet je volgende keer even gebruik maken van je macrorecorder :)
Code:
Sheets("Ronald").Range("M7").Hyperlinks(1).Follow True
 
Sorry voor mijn late reactie maar dit geeft een foutmelding. Cel M7 is niet opgemaakt als hyperlink. Ik denk dat daarom de foutmelding verschijnt. Ik wil graag dat de cel M7 niet opgemaakt wordt als hyperlink maar dat alleen de "value" in cel M7 gebruikt wordt om naar een website te gaan. In cel M7 staat een formule die telkens een ander website adres kan weergeven.
Iemand die weet hoe ik dit kan doen?

Bvd!
 
dit werkt (cursor in cel is naar site gaan)
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("A7")) Is Nothing Then
        ActiveWorkbook.FollowHyperlink Address:="http:\\" & Worksheets("Blad1").Range("A7").Value, NewWindow:=True
    End If
End Sub

dit werkt beter (dubbelklikken op cel om naar site te gaan, lijkt meer op gedrag hyperlink-formule)
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A7")) Is Nothing Then
        ActiveWorkbook.FollowHyperlink Address:="http:\\" & Worksheets("Blad1").Range("A7").Value, NewWindow:=True
    End If
End Sub

waarom niet met een formule???
Code:
=HYPERLINK(ALS(A6=1;"http:\\www.worksheet.nl";"http:\\www.helpmij.nl");ALS(A6=1;"www.worksheet.nl";"www.helpmij.nl"))
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan