[Excel/Acces 2003] Hyperlink van acces naar excel

[TB]

Het volgende is het geval:

Ik heb in een access database o.a. velden waarin hyperlinks verwerkt staan.
Als ik nu vervolgens vanuit Excel een Query uitvoer, en in een bepaalde cel deze data uit Access haal, dan verschijnt er de tekst met de hyperlink, met aan de voor- en achterkant een #. Geen klikbare link dus. Enig idee hoe ik dit tot een klikbare link zou kunnen maken?

[YellowOnline]

Kan je die MDB en XLS, desnoods geanonimiseerd, ergens online zetten want dit is nogal moeilijk op te lossen zonder de werkelijke structuren te zien m.i..

[Marko_J]

Wat is het veldtype in Access?

[TB]

Ik kan helaas niets online zetten

Gegevenstype inAccess: Hyperlink

MS Query wordt gebruikt om deze data te importeren

Ik denk dat het moeilijk wordt om met MS Query de gegevens incl gegevenstype te importeren in Excel. Een andere oplossing zou zijn om in Excel aan te geven dat in deze cel de hekjes (#) verwijderd moeten worden... Weet niet of dit mogelijk is.

[Edit] Met zoek en vervang is dit mogelijk, het wordt echter niet gelijk een link... even verder puzzelen

[Edit2]

Het schijnt met de volgende macro's mogelijk te moeten zijn hyperlinks actief werkend te maken

Sub HyperAdd()
'
' Converts each text hyperlink selected into a working hyperlink
'
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
'
'
End Sub

Of

Sub routine()
For Each r In ActiveSheet.UsedRange
If r.HasFormula Then
r.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
DoEvents
End If
Next
End Sub

Beide werken niet. Als ik F1 en enter druk op de cel, dan werkt het wel...
Wat gaat hier nu fout?

[ Voor 101% gewijzigd door TB op 10-02-2011 13:27 ]

[TB]

Nou een hele hoop geklooi verder, een hoop geleerd.

Sub HyperAdd()
'
' Converts each text hyperlink selected into a working hyperlink
'
For Each xCell In ActiveSheet.Range("D1:D10")
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell
'
'
End Sub


Deze formule werkt, maar maakt overal een hyperlink van (ook van gewone tekst). Als ik nu in deze formule kwijt kan dat er ene hyperlink moet komen als een tekst tussen # en # staat ben ik er!
Mijn kennis reikt echter niet zo ver... Kan iemand me verder helpen?

[Marko_J]

Je kan bijvoorbeeld de InStr functie gebruiken om te testen of de bewuste cel een '#' heeft. Zo ja, dan maak je er een hyperlink van, anders niet.