ich habe eine Mappe mit 20 Blättern und unzähligen Hyperlinks in jedem Blatt.
Die Dinger will ich löschen mit:
Option Explicit
Sub weg_mit_den_hyperlinks()
Dim Ws As Worksheet
Dim H As Hyperlink
For Each Ws In ThisWorkbook.Worksheets
For Each H In Ws.Hyperlinks
H.Delete
Next H
Next Ws
End Sub
Aber mitten drin bricht mein Code ab mit dem Hinweis:
Microsoft Excel hat ein Problem festgestellt und muss beendet werden.
Lass ich die Hyperlinkadressen hingegen testweise im Direktfenster ausgeben, funktioniert der Code tadellos:
Option Explicit
Sub weg_mit_den_hyperlinks()
Dim Ws As Worksheet
Dim H As Hyperlink
For Each Ws In ThisWorkbook.Worksheets
For Each H In Ws.Hyperlinks
Debug.Print H.Address
Next H
Next Ws
End Sub
Ist meine Excelinstallation im Eimer oder hab ich irgendwas Verbotenes (mit obigem Code) getan?
Grüße Boris