✔ Excel - Makros - automatisches Entfernen / Löschen

[nimenn]

Moin, moin

Ich habe eine sehr große Excel Datei mit ca. 40 Tabellenblättern und möchte
auf 38 Tabellenblättern alle Hyperlinks und alle Objekte (eingefügte Bilder) automatisch
entfernen lassen.

Hat jemand eine Idee wie man das (weitgehend) automatisiert hinbekommt?

Ciao und schonmal Danke für eure Hilfe
nimenn

 

[thekorn]

so zum Beispiel:

Public Sub hyperl()
For Each Tabelle In Worksheets
    For Each h In Tabelle.Hyperlinks
        h.Delete
    Next
Next
End Sub

gruß
thekorn

 

[nimenn]

nach Abwandlung funktioniert es.

Herzlichen Dank.

Ciao
nimenn