[EXCEL] Waarden in hele kolomen moeten URL zijn.

[Verwijderd]

Ik heb een kolom waar allemaal URL's in staan. Is het mogelijk met excel om tegen excel te zeggen dat deze kolom alleen URL's bevat. Zodat ik meteen op de link kan klikken en deze in explorer geopend word? Iemand tips? Bedankt.

[KingRichard]

Volgens mij is er geen speciale celopmaak voor hyperlinks. Je kunt het wel met de volgende VBA-code voor elkaar krijgen. De kolom waar je op dat moment in staat, wordt bewerkt.

Visual Basic:

Sub MaakHyperlinks()

' [TOPIC=829156///][NOHTML][rml][ EXCEL] Waarden in hele kolomen moeten URL zijn.[/rml][/NOHTML][/TOPIC]

Dim n, intKolom, intLaatsteCel As Integer

intKolom = Selection.Column
intLaatsteCel = Selection.SpecialCells(xlCellTypeLastCell).Row

For n = 1 To intLaatsteCel
    
    If ActiveSheet.Cells(n, intKolom).FormulaR1C1 <> Empty Then
        
        ActiveSheet.Cells(n, intKolom).FormulaR1C1 = "=HYPERLINK(" & _
            Chr(34) & ActiveSheet.Cells(n, intKolom).FormulaR1C1 _
            & Chr(34) & ")"
    
    End If
    
Next n

End Sub

[Verwijderd]

Hier stond dat ik het opgelost had, maar dat bleek niet zo te zijn.

[ Voor 114% gewijzigd door Verwijderd op 30-10-2003 15:35 ]

[Rataplan]

=HYPERLINK(cel_met_url)

[KingRichard]

Verwijderd schreef op 30 oktober 2003 @ 14:00:
Is het mogelijk met excel om tegen excel te zeggen dat deze kolom alleen URL's bevat.

Het gaat om een hele kolom.

KingRichard schreef op 30 oktober 2003 @ 14:51:
"=HYPERLINK(" & _
Chr(34) & ActiveSheet.Cells(n, intKolom).FormulaR1C1 _
& Chr(34) & ")"

Eén cel doe je dus met =HYPERLINK

Rataplan schreef op 30 oktober 2003 @ 15:40:
=HYPERLINK(cel_met_url)

Dat wisten we dus al! Niet helemaal goed gelezen, Rataplan?

[King]

Wat Rataplan bedoeld kan je ook met meer cellen doen hoor
Je selecteer een cel naast de kolom met de URL's en daar voer je de volgende functie in:

=HYPERLINK(Cell met hyperlink)

- Daarna selecteer je de cel en doe je CTRL-C
- Vervolgens selecteer je de hele kolom naast de kolom met de URL's
en je drukt op CTRL-V
- Voila! Nu heb je een extra kolom met allemaal Hyperlinks erin

[ Voor 3% gewijzigd door King op 30-10-2003 16:29 ]

[Rataplan]

KingRichard schreef op 30 oktober 2003 @ 16:07:
Dat wisten we dus al! Niet helemaal goed gelezen, Rataplan?

Jij weet dat en ik weet dat, maar als iemand VB(A) ziet staan heeft 'ie aanzienlijk meer voorkennis nodig dan alleen c+p - beschouw mijn post maar als een toegankelijke samenvatting van de jouwe

[Verwijderd]

Sorry dat ik zo laat ben, maar ik was er al uit gekomen, bedankt voor de reply's. Ik heb gebruik gemaakt van stringen aan elkaar koppel en de functie hyperlink en gevolgd door een if functie.

Trouwens het selecteren van een hele kolom en dan plakken vindt ik nooit een mooie oplossing omdat dan er teveel cellen ingevuld worden die niet nodig zijn.

[Arjan]

ik leen dit topic heel eventjes voor het volgende, weet iemand of ik met excel (XP) waardes kan uitlezen van een internetpagina?

dus als ik bv de waardes die op www.knijntje.nl/gegevens.html staan wil uitlezen en veranderen, is dat mogelijk met excel zonder 3th party software?