Über 3000 Hyperlink entfernen

Forumthread: Über 3000 Hyperlink entfernen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Über 3000 Hyperlink entfernen

27.02.2006 10:40:49

Heinz

Hallo Leute
Könnte mir Bitte jemand einen Tip geben,wie ich über 3000 Hyperlink auf einmal entfernen kann.
Danke,Heinz

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Über 3000 Hyperlink entfernen

27.02.2006 10:43:28

=Peter=
AW: Über 3000 Hyperlink entfernen

27.02.2006 10:47:54

Heinz
AW: Über 3000 Hyperlink entfernen

27.02.2006 11:00:11

u_
AW: Über 3000 Hyperlink entfernen

27.02.2006 11:18:28

An

AW: Über 3000 Hyperlink entfernen

27.02.2006 10:43:28

=Peter=

Hallo Heinz,
vielleicht so:


Sub DeleteHyperlinksWorksheet()
'Quelle: Monika Weber
Dim hypLink As Hyperlink
For Each hypLink In ActiveSheet.Hyperlinks
hypLink.Delete
Next hypLink
End Sub

HTH
Gruss
Peter

AW: Über 3000 Hyperlink entfernen

27.02.2006 10:47:54

Heinz

Hallo Peter
So geht es leider nicht,oder ich hab's falsch angestellt.
Habe die Hyperlink in Tabelle 1 in Spalte B1:B3500
Hättest Du eventuell nochmals Bitte eine Hilfe für mich.
Danke,Heinz

AW: Über 3000 Hyperlink entfernen

27.02.2006 11:00:11

Hallo,


Sub Links_raus()
Range("B:B").Hyperlinks.Delete
End Sub

Gruß
Geist ist geil!

AW: Über 3000 Hyperlink entfernen

27.02.2006 11:18:28

Hallo Udo & Peter
Danke für Eure Hilfe
Habe nach reichlicher Überlegung,den Code von Udo eine Schaltfläche zugewiesen.Jetzt funktioniert's.
Recht herzlichen Dank,Euch beiden.
Gruss,Heinz