hyperlinks verwijderen in kolom

[nonono]

Ik heb een kolom gevuld met hyperlinks, waarvan ik echter de hyperlink wil verwijderen zodat alleen de tekst overblijft.
Cel voor cel de hyperlink verwijderen is een lange klus. Is hier een macro voor?

Bedankt Nono

 

[ExcelAmateur]

nonono,

Zet deze macro achter een knop.

Private Sub CommandButton1_Click()
Dim Style, Title, Response
Response = MsgBox("Weet je het zeker?", vbYesNo, "Hyperlink")
If Response = vbYes Then    ' Je koos Ja.
    [A2:C27].Hyperlinks.Delete    ' Voert bepaalde handeling uit.
Else    ' Je koos Nee.
    Exit Sub    ' Voert bepaalde handeling uit.
End If
End Sub

 

[nonono]

Het werkt inderdaad. Alleen je moet in de code aangeven bij welke cel(len) de hyperlink verwijderd moet worden.
is het ook mogelijk met een slepende muis de cellen te selecteren en die vervolgens door de "knop" herkend worden?

Groet Nono

 

[zapatr]

is het ook mogelijk met een slepende muis de cellen te selecteren en die vervolgens door de "knop" herkend worden?

Sub macro1()
Selection.Hyperlinks.Delete
End Sub

 

[nonono]

Werkt uitstekend!

Bedankt, :thumb: :thumb:

Nono

 

[ExcelAmateur]

nonono
Het werkt inderdaad. Alleen je moet in de code aangeven bij welke cel(len) de hyperlink verwijderd moet worden.
is het ook mogelijk met een slepende muis de cellen te selecteren en die vervolgens door de "knop" herkend worden?

Als je over meerdere kolom Hyperlinks heb staan is dit misschien makkelijker.

Vergeet je niet om de vraag als opgelost te zetten. :thumb: