Hyperlink in cel

[AABE]

Hallo Forum,

in een sheet gebruik de hyperlink formule.

Bijvoorbeeld:
=hyperlink(http://www.google.com;"Google")

Deze cel wordt zo exact (met = teken) gevuld vanuit een query op een Access database.
Pas als ik in de cel op F2 druk en daarna <enter> wordt het een link.

Het betreft hier iedere keer meer dan 50 regels.
Dus mijn vraag is kan dit efficienter middels een macro?

Bedankt,

Aat.

 

[Ginger]

AABE, Staat de celeigenschap van de cellen soms op Tekst? Dan zou het genoeg kunnen zijn om de hele kolom te selecteren en het format in 1x op General (algemeen) te zetten.

Groet, Leo

EDIT: Volgens mij moet je adres óók tussen dubbele quotes...

=HYPERLINK("http://www.google.com";"Google")

 

[Ginger]

AABE, En grote kans dat dit kleine VBA-blokje je kan helpen. Selecteer die 'foute' regels en start de code...

Sub DoeIets()
Dim s As Range

    For Each s In Selection
        s.FormulaLocal = s.Value
    Next s

End Sub

Groet, Leo

P.s. Neemt volgens mij niet weg dat je je dubbele quotes mist...

 

[AABE]

AABE, En grote kans dat dit kleine VBA-blokje je kan helpen. Selecteer die 'foute' regels en start de code...

Sub DoeIets()
Dim s As Range

    For Each s In Selection
        s.FormulaLocal = s.Value
    Next s

End Sub

Groet, Leo

P.s. Neemt volgens mij niet weg dat je je dubbele quotes mist...

De quotes was ik vergeten, maar je macrootje werkt als een speer....bedankt. Ik kan nu weer verder......

mvg,

Aat

 

[Ginger]

AABE, Goed dat 't is opgelost! Ik had in de tussentijd nog ff een oplossing verzonnen voor je dubbele quotes (maar die blijkt dus overbodig te zijn). Toch maar plaatsen voor de geïnteresseerden...

Sub DoeIets()
Dim s As Range
Dim sTemp As String

    For Each s In Selection
        sTemp = s.Value
        sTemp = Replace(sTemp, "(", "(" & Chr(34))
        sTemp = Replace(sTemp, ";", Chr(34) & ";")
        s.FormulaLocal = sTemp
    Next s

End Sub

Groet, Leo

EDIT: DEZE CODE NIET MEER DRAAIEN OVER REEDS CORRECTE CELLEN!!!! Je zit anders met allemaal foute adressen!!

 

[AABE]

AABE, En grote kans dat dit kleine VBA-blokje je kan helpen. Selecteer die 'foute' regels en start de code...

Sub DoeIets()
Dim s As Range

    For Each s In Selection
        s.FormulaLocal = s.Value
    Next s

End Sub

Groet, Leo

P.s. Neemt volgens mij niet weg dat je je dubbele quotes mist...

Leo, ik heb nog een klein vraagje.

Ik wil jouw formule laten doorlopen tot de laatst gebruikte rij in de sheet van een bepaalde kolom....

groet,

Aat

 

[Ginger]

AABE, slechts een kleine ingreep....

Sub DoeIets()
Dim s As Range

    For Each s In Selection[COLOR="Blue"].SpecialCells(xlCellTypeConstants)[/COLOR]
        s.FormulaLocal = s.Value
    Next s

End Sub

Gewoon een kwestie van de gewenste kolom aanklikken zodat deze in z'n geheel geselecteerd staat...

Groet, Leo

 

[AABE]

Helemaal super....

Bedankt..

Aat:thumb: