VBA volgende regel tot eind

[HHD]

Hallo,

korte samenvatting van het probleem, al vanalles geprobeerd maar krijg het niet werkende:

Ik heb een tabel (tabel 1) met daarin twee kolommen (Kolom A: Naam en kolom B: Padnaam). Nu wil ik graag een vba code maken waarbij op elke gevulde regel in kolom A een hyperlink wordt toegevoegd met de padnaam uit kolom B.

Iemand hier een oplossing?

Groet,
HHD

 

[OctaFish]

Doe er eens een bestandje bij, dan krijg je sneller een (werkend) antwoord.

 

[HHD]

Doe er eens een bestandje bij, dan krijg je sneller een (werkend) antwoord.

zie originele post, heb het net toegevoegd. De eerste naam bevat al een (niet werkende) hyperlink.
Waar het mij om gaat is dat via een VBA code, alle namen worden langsgelopen en de hyperlink wordt toegevoegd die in kolom B staat.

 

[edmoor]

For Each cl In Range("A3:A6")
    cl.Hyperlinks.Add Anchor:=Range(cl.Address), Address:= _
    cl.Offset(, 1), TextToDisplay:=cl.Value
Next cl

 

[Gijsbert1]

Probeer deze eens:
Bekijk bijlage 267001

 

[Gijsbert1]

Werkt ook goed:

Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next

 

[HHD]

Allen bedankt voor de input. Heb het opgelost met de code van Edmoor.