c't 4/06
Sub HyperlinksLoeschen()
Selection.Hyperlinks.Delete
End Sub
Um alle Hyperlinks im aktuellen Arbeitsblatt unabhängig davon zu entfernen, ob sie markiert sind oder nicht, hilft ein weiteres Makro:
Sub AlleHyperlinksLoeschen()
Dim HypLink As Hyperlink
For Each HypLink In ActiveSheet.Hyperlinks
HypLink.Delete
Next
End Sub
Beide Makros laufen in Excel ab Version 97. (db)
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-295270
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.