In einer gro�en Tabelle sind recht viele Hyperlinks,
die nun auf schnelle Art und Weise gel�scht werden
sollen.
Sub Hyperlinks_l�schen()
For x = 1 To ActiveSheet.Hyperlinks.Count
Set Zelle = ActiveSheet.Hyperlinks(x).Range
Zelle.Delete
Next x
End Sub
|