Wijziging aan vba code zodat er geen hyperlinks meer worden aangemaakt

[davylenders123]

Ik heb hier een bestandje gevonden dat de bestandsnamen uit een map kopierd naar excel.

Hij maakt echter hyperlinks aan.
Wat moet er aan het bestandje worden aangepast dat hij geen hyperlinks aanmaakt maar gewoon de naam van het bestand overneemt.

Of hoe kan ik ineens al die hyperlinks verwijderen ?

Bekijk bijlage inhoud map ophalen.rar

 

[edmoor]

Maak een extra routine aan in Module1 en voer die uit wanneer de bestaande routines hun werk hebben gedaan.
Dus in Module1 aan het einde van de routine Recurse(), net voor de regel Application.ScreenUpdating = True doe je: Call ClearHyperlinks

Dit is de routine die je moet invoegen in Module1:

Sub ClearHyperlinks()
    Columns("B:B").Select
    Selection.Font.Bold = False
    Selection.Font.Bold = True

    Cells.Select
    Selection.Hyperlinks.Delete
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.ColorIndex = 0
    Selection.EntireRow.Hidden = False
End Sub

 

[davylenders123]

edmoor

Bedankt dit is .

T O P :thumb: