In einer umfangreichen Tabelle sind in der Spalte A viele Hyperlinks untereinander. Wie kann man diese Zählen lassen?
Wählen wenn funktion?
Kann da jemand helfen?
Sub hyper()
MsgBox Columns(1).Hyperlinks.Count & " Hyperlinks sind vorhanden."
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Range("B1").Value = Columns("A").Hyperlinks.Count
End If
End Sub