op hyperlink controleren

[Manuzzi]

Hoe kan ik met een code controleren of een cel een hyperlink bevat?

gr, Herman

 

[joost verdaasdo]

Hai,

Ik ga ervanuit dat we het hier hebben over echte hyperlinks welke middels het 'handje' gevolgd kunnen worden!

Dus testbaar met deze code

Sub TestForHyperlink()
    If ActiveCell.Hyperlinks.Count >= 1 Then
      MsgBox ActiveCell.Hyperlinks(1).Address
    End If
End Sub

See Yah! :thumb:

 

[Manuzzi]

Wederom bedankt Joost.; Dat is wat ik zocht.
gr, Herman

 

[joost verdaasdo]

Hai Herman,

Goed zo graag gedaan! :thumb: