wie entfernt man alle Hyperlinks auf einem Sheet, es sind ca. 30 Stück pro Sheet(25Sheets).
Manuell is mir dat zu zeitaufwendig :-(
Gruß
Micha
Sub hyper()
' hyper Makro
Cells.Select
Selection.Hyperlinks.Delete
End Sub
Sub Hyperlink_delete()
Dim myHl As Hyperlink
For Each myHl In ActiveSheet.Hyperlinks
myHl.Delete
Next
End Sub
Sub Change_Hyperlink_to_Correct_Address()
Dim myHl As Hyperlink
For Each myHl In ActiveSheet.Hyperlinks
If myHl.TextToDisplay = "@" Then
myHl.TextToDisplay = ""
End If
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen