Microsoft Visual Basic "Excel"

[Hardl0pertje]

Hallo Allemaal,

Ik probeer een VB script te maken voor het volgende probleem.
Er zijn 255 Hyperlinks welke allemaal een verkeerde verwijzing maken.

Sommige hyperlinks maken een verwijzing naar:
C:\Documents and Settings
C:\Documents and Settings\username\

Helaas is dit niet consistent.

Het liefst zal ik de bovenstaande tekst willen laten vervangen bijvoorbeeld door T:\

Het volgende script kwam ik op internet tegen:

Sub hyperlink_aanpassen()

Dim A As Range
Dim bereik As Range

Set bereik = Range("a1:a255")

For Each A In bereik

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="T:\" & Selection & " "
ActiveCell.Offset(1, 0).Range("A1").Select

Next A

End Sub



Ik kom hier al ver, maar helaas nog niet ver genoeg.
Heeft er iemand een idee ?

Mochten er vragen dan hoor ik het graag.

 

[ExcelAmateur]

HardLopertje,

Probeer deze code eens.
Doe het even op een test file, voordat er iets fout gaat.
Hij zet het veranderde in de zelfde cel terug.

Sub hyperlink_aanpassen()
  For Each cl In Range("A1:A255")
    If cl = "" Then Exit Sub
    cl.Value = "T:\" & Mid(cl, 4)
  Next cl
End Sub

Graag de volgende keer de code selecteren en dan boven in het Menu op # klikken.
Dan komt de code in een apart vak te staan.

Je heb trouwens nog een aantal vragen als niet opgelost staan.