Hyperlinks loeschen
19. September 2006
Hier wird über die For-Each-Schleife auf jedes Element der Hyperlink-Collection im aktiven Tabellenblatt zugegriffen. “a” enthält dann das jeweilige Hyperlink-Objekt, dass über die delete Methode entfernt wird.
VBA:
-
Sub KillHyperlinks()
-
'removes hyperlinks in sheet
-
'02-2006 E.Bimczok
-
'http://www.profi-excel.de
-
-
Dim a As Hyperlink
-
For Each a In ActiveSheet.Hyperlinks
-
a.Delete
-
Next a
-
End Sub