Hyperlinks löschen, viele Blätter
21.05.2004 13:49:59
Martin
ich habe mehrere Webseiten in einer Mappe. Aus denen wollte ich alle Hyperlinks entfernen. DOch wieso klappt EXCEL bei mir immer bei folgendem Code zusammen, OHNE Fehlermeldung? Nur ("Problembericht senden..?") kommt.
Sub hyper_wech()
dim i_zahl as long
dim hyp as Hyperlink
For i_zahl = 3 to 5 'Worksheets.Count
Worksheets(i_zahl).Activate 'noch mal extra Akiviert, hat aber nix gebracht
Range("A1").Select ' auch der Range hat nicht gebracht
For Each hyp in Worksheets(i_zahl).Hyperlinks
' For each hyp in ActiveSheet.Hyperlinks
hyp.Delete
next hyp
Next i_zahl
End Sub
Habe auch die ausgeblendenten Sätze probiert, funzt auch nicht. Anzahl der Blätter ca. 120 (Vareiert aber).
Bin für jede Hilfe dankbar.
gruß Martin T
Anzeige