Hyperlinken naar 1 cel

[Jack Nouws]

Hallo

Ik wil een excelblad met 20 hyperlinken maken en ik wil deze allen verwijzen naar de zelfde cel maar ik wil ook de naam van de cel waar de hyperlink in staat mee overnemen.
Is dat mogelijk of is hier nog een andere oplossing voor?

Met vr gr
Jack

 

[richard1970]

Beste Jack,

=CEL("adres";A1)&"Blad2!A10"

Of:

="A1+"&"Blad2!A10"

Is een verwijzing in cel A1 naar cel A10 op Blad2.
Is dit iets? Wel een beetje bewerkelijk vind ik, maar het enige dat ik zo kan bedenken dat doet wat jij vraagt.

Richard

 

[Jack Nouws]

Beste Jack,

=CEL("adres";A1)&"Blad2!A10"

Of:

="A1+"&"Blad2!A10"

Is een verwijzing in cel A1 naar cel A10 op Blad2.
Is dit iets? Wel een beetje bewerkelijk vind ik, maar het enige dat ik zo kan bedenken dat doet wat jij vraagt.

Richard

Ik ben nu met dit bezig maar ik krijg het niet werkend als ik op de hyperlink druk.

Sub HyperlinkAdres()
       Range("AR57").Value = Range("D6").Hyperlinks(1).Address
End Sub

 

[Jack Nouws]

Ik ben nu met dit bezig maar ik krijg het niet werkend als ik op de hyperlink druk.

Sub HyperlinkAdres()
       Range("AR57").Value = Range("D6").Hyperlinks(1).Address
End Sub

Het wil me nog steeds niet lukken,
wie kan me hier bij helpen?

Met vr gr
Jack

 

[Roncancio]

Bedoel je het zo?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
       Range("A57").Value = Worksheets(1).Range("D6").Hyperlinks(1).SubAddress

End Sub

Bovenstaande code wordt geactiveerd als op een hyperlink wordt geklikt.
In cel A57 verschijnt de adres van de hyperlink van cel D6 van het 1e werkblad.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Bedoel je het zo?

Hallo
De hyperlink werkt wel maar de code doet volgens mij niets

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
       Range("AR57").Value = Sheets("Blad3").Range("D6").Hyperlinks(1).SubAddress

End Sub

Enig idee hoe het wel kan werken?

Met vr gr
Jack

 

[Jack Nouws]

Hallo

Ik heb het wat nader bestudeerd en de code werkt.:thumb:
Maar... er wordt vekeerde tekst geplaatst nl Blad3!AR57 ipv de tekst in cel d6.
Hoe kan ik dit veranderen.

Met vr gr
Jack

 

[Thoralf]

Hallo Jack,

VBA is niet mijn ding, maar kijk eens hier: http://www.techonthenet.com/excel/macros/extract_hl.php
Misschien helpt je dat verder.

 

[Roncancio]

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
       Range("AR57").Value = Worksheets(1).Range("D6").Value

End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
       Range("AR57").Value = Worksheets(1).Range("D6").Value

End Sub

Met vriendelijke groet,


Roncancio

Maar dit werkt niet met 20 hyperlinks met verschillende cel teksten
want de ene hyperlink in D6 heet bijv 'Piet' dus in cel AR57 komt 'Piet' te staan
de andere hyperlink in D8 heet bijv 'Kees' dus in cel AR57 komt 'Kees' te staan
enz... want dat is waar ik naar op zoek ben.

Met vr gr
Jack

 

[Roncancio]

Zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Hyperlinks.Count > 0 Then Range("AR57").Value = Target.Value
End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Hyperlinks.Count > 0 Then Range("AR57").Value = Target.Value
End Sub

Met vriendelijke groet,


Roncancio

Jaa dat is em
Vielen dank dar fur:thumb::thumb:

met vr gr
Jack

 

[Roncancio]

Jaa dat is em
Vielen dank dar fur:thumb::thumb:

met vr gr
Jack

Graag gedaan.
Gaarne nog de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio