Websitenaam of URL scheiden van tekst

De tip ingediend door: Jay Shukla

Soms hebben we een situatie als:

1. Yahoo-website www.yahoo.com
2. Google-website www.google.com

Dus hoe scheiden we de naam van de website van de resterende tekst.

Stap 1.

Selecteer de kolom.

Ga naar de optie Vervangen onder Bewerken

Vervang dan http:
met (spaties)… .http:

(Bijv.:… . = Spaties)

Je zult merken dat de wij-namen op afstand van elkaar worden gescheiden

Stap 2

Ga naar de optie Tekst naar kolom onder Gegevens

en selecteer de optie Vaste breedte

breng de markering naar een specifieke locatie in de kolom vóór de eerste websitenaam in de hele kolom

klik op volgende u zult zien dat de tekst vóór de webnamen in het zwart is

FINISH

U vindt uw webnamen gescheiden van de tekst.

Nu om er een hyperlink van te maken:

Stap 1

Druk op Alt + F11

u zult zien dat er een macro wordt geopend

Ga naar Invoegen en selecteer vervolgens Module

er verschijnt nog een nieuw modulevenster

Stap 2

Kopieer en plak de onderstaande formule:

------------------------------------------------------

Sub MerkHyperlinks_D()
Dim cel als bereik, Rng als bereik
Stel Rng = Range ("A1:A" & Cells.Rows.Count) in. _
SpecialCells(xlConstanten, xlTextValues)
Als Rng niets is, dan
MsgBox "niets binnen bereik"
Sluit sub
Stop als
Voor elke cel in Rng
Als Trim(cell.Value) "" Dan
ActiveSheet.Hyperlinks.Anker toevoegen:=cel, _
Adres:=cel.Waarde, _
Schermtip:=cel.Waarde, _
TextToDisplay:=cel.Waarde
Stop als
Volgende cel
Einde sub