hyperlinks aanpassen, nieuwe servernaam.

[MegaSaxon]

Beste allen

Op mijn werk zijn de servernamen aangepast.
Nu gebruik ik een excellijst als offertelijst. Hierin staan in kolom A alle offertenummers.
Aan deze offertenummers zijn hyperlinks gekoppeld die verwijzen naar de Word offertes, die zijn opgeslagen in een andere map.
Deze hyperlinks werken nu niet meer omdat de servernaam is aangepast.

Is er een manier om al deze hyperlinks in één keer aan te passen, zodat ze naar de juiste server verwijzen?
Het gaat om ongeveer 10.000 linkjes dus stuk voor stuk is niet te doen.

Bij voorbaat dank.

 

[Hoornvan]

MegaSaxon,

Heb je het al geprobeerd met zoeken en vervangen?

 

[MegaSaxon]

werkt ook niet

Ja, dit heb ik al geprobeerd maar hij kijkt alleen naar de cel, niet naar de hyperlink.

Graag enige hulp.

BVD

 

[Wigi]

Ja, dit heb ik al geprobeerd maar hij kijkt alleen naar de cel, niet naar de hyperlink.

Graag enige hulp.

BVD

Doe eens een voorbeeldje aub, enkele links is al genoeg.

 

[MegaSaxon]

Hallo Wim

Hierbij een klein voorbeeld bestandje.

De in de hyperlink genoemde server: Lhnlmesfs1 is veranderd in server: nlmep1-s0002

 

[Hoornvan]

Ik had voor mezelf al een Hyperlink gemaakt maar het lukt niet om dit zo te veranderen.
Ik ga nog evn door met zoeken.

 

[wiki]

http://cnx.org/content/m17228/latest/

misschien kun je hier iets mee

gr wim

 

[Hoornvan]

MegaSaxon,

Hier is je testfile, met dank aan wiki voor het zoeken naar de macro.

 

[MegaSaxon]

Hartelijk dank

Ik wil jullie vast bedanken voor alle hulp.
Ik ben nu bezig met het uitvoeren van deze macro. Excel schijnt het niet zo grappig te vinden want hij is al twee uur bezig. Taakbeheer zegt dat hij (Excel) "running" is.

Is dit te verwachten?

 

[Hoornvan]

Is dit te verwachten?

Wat denk je als je het met de hand moet doen?

Zo te lezen werkt het wel.
Ik heb wel eens hier bij een vraag gelezen, dat als je automatisch herberekenen even uitschakeld, wel eens kan helpen.

 

[MegaSaxon]

Het is gelukt.

Net klaar en goed functionerend.
Fantastisch. Dank je.

 

[Wigi]

Net klaar en goed functionerend.
Fantastisch. Dank je.

Het is reeds klaar maar 2 gedachten:

- beperk het gebied:

For Each MyCell In MyDoc.UsedRange.[B]SpecialCells(2, 1)[/B]
      '...
Next MyCell

Enkel cellen met getallen die constant zijn, komen in aanmerking.

- gebruik de Hyperlinks collectie:

Sub f()
    Dim hl As Hyperlink
    For Each hl In ActiveSheet.Hyperlinks
        'code
    Next
End Sub

Je loopt enkel door hyperlinks, niet door cellen.