Hyperlinks - alle auf einmal entfernen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Hyperlinks - alle auf einmal entfernen
von: thekla
Geschrieben am: 16.05.2002 - 16:44:40

Hallo,
muss ab und an eine Datei mit vielen Hyperlinks von einem Netzwerk kopieren, was zur Folge hat, dass das Öffnen der Datei "Stunden" dauert. Gibt es eine Möglichkeit
a) die Datei zu öffnen, ohne dass die Verknüpfungen gesucht werden
b) nach dem Öffnen, für alle betreffenden Zellen, das Hyperlink zu entfernen

Vielen Dank für mögliche Lösungen.
Thekla


nach oben   nach unten

Re: Hyperlinks - alle auf einmal entfernen
von: Otto
Geschrieben am: 16.05.2002 - 17:09:44

Hallo Thekla,

Punkt 1:
Extras/ Optionen.../ Berechnung/ Remotebezüge aktualisieren Haken entfernen.
Punkt 2:

Option Explicit

Sub Haupt()
   Call HyperlinksWeg
End Sub  

Sub HyperlinksWeg()
   Dim intAnt As Integer    
   Dim rngZelle As Range  
   Dim wksArchiv As Worksheet  
   
   intAnt = MsgBox("Sollen die Hyperlinks gelöscht werden?", vbYesNo)
   If intAnt = vbNo Then  
      MsgBox "Dann halt nicht!"
      Exit Sub  
   End If  
   Application.EnableEvents = False
   Set wksArchiv = ActiveSheet
   For Each rngZelle In wksArchiv.UsedRange    
      If rngZelle.Hyperlinks.Count > 0 Then  
         rngZelle.Hyperlinks(1).Delete
      End If  
   Next rngZelle
End Sub  

Gruß Otto

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hyperlinks - alle auf einmal entfernen"