Sub Hyperlinks_entfernen()
 Dim cell As Object
    For Each cell In Selection.Cells
       With cell
	  If .Hyperlinks.Count > 0 Then
	     .Hyperlinks.Delete
       With .Font
	  .Underline = xlUnderlineStyleNone
	  .ColorIndex = xlAutomatic
       End With
	  End If
       End With
    Next cell
End Sub