Zoeken hyperlink

[kabebanaan]

Hallo,

In een kolom heb ik in iedere cel een knop, met aan deze knop een hyperlink.

Wanneer ik nu data ga invoeren, dan moet aan de knoppen die dan zijn toegevoegd, een hyperlink worden gemaakt. (Door het sorteren komen de nieuwe regels willekeurig op 't werkblad)

Is er een manier waarop ik cellen kan zoeken met een hyperlink ....... nog mooier zou zijn om cellen in die kolom te zoeken, waaraan geen hyperlink is verbonden.

Weet iemand of dit mogelijk is?

 

[Ingrid B]

Sub GeenHyperlink()
Dim c As Range
Dim tmp
  On Error Resume Next
  For Each c In Range("A1", Range("A65536").End(xlUp))
    tmp = c.Hyperlinks.Item(1).Address
    If Not tmp Is Empty Then MsgBox c & " bevat geen hyperlink"
  Next c
End Sub

kopieer de code naar een module