Celinfo : Hyperlink pad & adres

Rudy · #1 30 augustus 2010, 23:42

Hallo,

In een kolom staan onder elkaar hyperlinks naar bestanden, nu had ik graag het adres waarnaar deze hyperlinks verwijzen opgehaald, om in een macro bvb. bestand te openen

De bestandsnaam krijg is als de cel geselecteerd is met
HypAdres = msgbox(Selection.Hyperlinks(1).Address)
Maar kan dit ook als de cel niet geselecteerd is en men gebruikt maakt van 'offset' ? Onderstaand werkt niet ...
HypAdres = msgbox(ActiveCell.Offset(varR, varC).Hyperlinks(1).Address)

Kan ik ook het path + bestandsnaam eruit halen ?

Dank u

Warme bakkertje · #2 31 augustus 2010, 11:16

Code:

Sub tst()
    HypAdres = Replace(ActiveCell.Offset(varR, varC).Hyperlinks(1).Address, "mailto:", "")
End Sub

Rudy · #3 31 augustus 2010, 13:22

dank u,
nu nog even eerst een test inbouwen om te zien of er in de cel wel een hyperlink naar een document staat, zoniet krijg ik een fout "Supscipt out of range", iets in de aard van ...
if tekst = blauw ?

Ik heb nog niet gezocht maar als u de code hebt, graag.

RedHead · #4 31 augustus 2010, 16:10

Citaat:

Oorspronkelijk geplaatst door Rudy

nu nog even eerst een test inbouwen om te zien of er in de cel wel een hyperlink naar een document staat

Gewoon deze regel in een if-statement zetten....

Code:

activecell.Hyperlinks.Count

(geen links geeft als resultaat een nul)

Groet, Leo

Warme bakkertje · #5 31 augustus 2010, 20:15

Misschien deze ?

Code:

Sub tst()
Dim hl As Hyperlink
Set hl = Nothing
On Error Resume Next
Set hl = ActiveCell.Offset(varR, VarC).Hyperlinks(1)
    If Err Or hl Is Nothing Then
        Err.Clear
        MsgBox "Geen hyperlink in " & ActiveCell.Offset(varR, VarC).Address
    Else
         HypAdres = Replace(ActiveCell.Offset(varR, VarC).Hyperlinks(1).Address, "mailto:", "")
    End If
End Sub

Rudy · #6 2 september 2010, 23:41

ok dank u
opgelost.

Discussietools
Printversie tonen Deze pagina e-mailen
Weergave
Lineaire weergave Switchen naar hybride weergave Switchen naar vertakte weergave