Avatar billede M_M Mester
24. august 2019 - 14:00 Der er 1 løsning

VBA - konverter alle celler startende med "https://" til blå hyperlinks

Hej

Jeg håber, at I kan hjælpe mig, efter en halv dags klip/klistre af koder fra google ikke har kunnet få mig i mål med hvad jeg troede var en simpel opgave:-)

I et Excel-ark ønsker jeg at konvertere alle celler startende med "https://" til blå hyperlinks - med samme adresse og navn som cellerne pt har. Dvs. jeg håber på en VBA-løsning som havde man manuelt gået ind i alle celler startende med "https://" og trykket "Enter".

(efter jeg ikke kunne komme i mål med en "rigtig" løsning var jeg ude i at lave en hjælpekolonne med formlen "=HVIS(VENSTRE(A1;8)="https://";HYPERLINK(A1);A1)" - og det gav godt nok et hyperlink, men i Excel 2019 blev linket ikke blåt pga. hvis-formlen - mens skriver man "=HYPERLINK(A1)" blev linket blåt, må være en fejl i Excel - men måske også godt nok for der er garanteret en mere gennemført løsning:-)

Jeg har godt 20 styk sådanne Excel-ark, med ca. 200 links i hvert, der skal fornyes hver md (dvs. "https://" gøres til blå hyperlinks) - så en manuel løsning er ikke en mulighed.

På forhånd tak for hjælpen.

Mvh. Martin
Avatar billede M_M Mester
24. august 2019 - 18:12 #1
Efter længere tids googlen har jeg strikket en løsning sammen, der fungerer - håber andre kan få brug for den:                   

Sub HyperLink()
Dim myRange As Range
Dim myCell As Range
Set myRange = Range("A1:AO300")
For Each myCell In myRange
If myCell Like "https://*" Or myCell Like "*otherword*" Then
ActiveSheet.Hyperlinks.Add Anchor:=myCell, _
Address:=myCell.Value, _
ScreenTip:="Klik", _
TextToDisplay:=myCell.Value
End If
Next myCell
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester