Könnte mir Bitte jemand einen Tip geben,wie ich über 3000 Hyperlink auf einmal entfernen kann.
Danke,Heinz
Sub DeleteHyperlinksWorksheet()
'Quelle: Monika Weber
Dim hypLink As Hyperlink
For Each hypLink In ActiveSheet.Hyperlinks
hypLink.Delete
Next hypLink
End Sub
Sub Links_raus()
Range("B:B").Hyperlinks.Delete
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