hyperlinks emailadressen zijn verwarrend

[pleomax]

Beste mensen,

Al een lange tijd beheer ik een excel bestand met allerlei informatie van verschillende personen en daarbij o.a. bijbehorende email adressen. nu is het zo dat door een backup alle achterliggende email adressen niet meer kloppen, wanneer er bijv. als adres test@test.com staat en ik klik erop (outlook opent dan) staat er info@microsoft.com om maar als voorbeeld te geven.

in feite zijn dus alle adressen (wanneer je rechtermuisknop erop klikt en dan kiest voor hyperlink bewerken) staat er info@test.nl en als weergegeven tekst test@test.com

is er een manier (het zijn 1200 emailadressen die niet kloppen) om dit terug te zetten? dus de weergegeven email adresse kloppen wel, maar wanneer je erop klikt zie je een ander adres in microsoft outlook.

Alvast bedankt voor uw reactie

 

[Ginger]

Pleomax, Dit codeblokje zorgt ervoor dat je onderliggende mailadres wordt vervangen door de getoonde omschrijving (= friendly text).

Sub FriendlyIsLinkadres()
Dim rng As Range

    For Each rng In Selection
        [COLOR="Blue"]If rng.Hyperlinks.Count > 0 Then[/COLOR]
            rng.Hyperlinks(1).Address = "mailto:" & rng.Hyperlinks(1).TextToDisplay
        [COLOR="blue"]End If[/COLOR]
    Next rng

End Sub

Selecteer het bereik waar de omzetting moet plaatsvinden en laat de code lopen... (copieer als backup aub wel eerst al je adressen!!!! De actie is namelijk niet omkeerbaar!!!!)

Groet, Leo

EDIT: Het bleek dat de code stuk liep bij een selectie waar géén hyperlinks aanwezig waren. Dat is dmv het (blauwe) if-statement ondervangen!

 

[pleomax]

Pleomax, Dit codeblokje zorgt ervoor dat je onderliggende mailadres wordt vervangen door de getoonde omschrijving (= friendly text).

Sub FriendlyIsLinkadres()
Dim rng As Range

    For Each rng In Selection
        [COLOR="Blue"]If rng.Hyperlinks.Count > 0 Then[/COLOR]
            rng.Hyperlinks(1).Address = "mailto:" & rng.Hyperlinks(1).TextToDisplay
        [COLOR="blue"]End If[/COLOR]
    Next rng

End Sub

Selecteer het bereik waar de omzetting moet plaatsvinden en laat de code lopen... (copieer als backup aub wel eerst al je adressen!!!! De actie is namelijk niet omkeerbaar!!!!)

Groet, Leo

EDIT: Het bleek dat de code stuk liep bij een selectie waar géén hyperlinks aanwezig waren. Dat is dmv het (blauwe) if-statement ondervangen!

Beste Leo,

het is helemaal opgelost! bedankt hiervoor