Here is a solution if you don't mind using user-defined functions:
Public Function ShowHyperlink(rngHyperlink As Range) As String
If (rngHyperlink.Hyperlinks.Count > 0) Then
ShowHyperlink = rngHyperlink.Hyperlinks(1).Address
Else
ShowHyperlink = "no hyperlink"
End If
End Function