rene1976
Goto Top

Excelspalte mit 2.000 Webadressen zu Hyperlinks machen

Hallo,

ich habe von einem Partner eine Excel 2010 Tabelle mit ca. 2.000 Webadressen von weiteren potenziellen Partnern bekommen.
In der Spalte stehen allen URLs mit http://www.domainname.de drin.
Leider lassen sich diese Webseiten nicht einfach aus Excel 2010 heraus anklicken da keine Links hinterlegt sind.
Wenn ich in jede Zelle mit dem Cursor hineinspringe und auf Enter drücke, dann wandelt Excel die Adresse in eine Hyperlinks-Adresse um.

Kennt jemand eine Trick wie man das automatisieren kann?
Ich würde gerne die jeweiligen Zellen oder die ganze Spalte markieren und alle auf einmal mit einem Hyperlink hinterlegen.
Jede Spalte hat eine eigene Website Adresse bzw. ein Deeplink.

Geht das irgendwie mit Boardmitteln oder braucht man VBA (kann ich aber leider nicht face-sad )?

Besten dank.

Rene

Content-ID: 245606

Url: https://administrator.de/forum/excelspalte-mit-2-000-webadressen-zu-hyperlinks-machen-245606.html

Ausgedruckt am: 22.12.2024 um 20:12 Uhr

colinardo
Lösung colinardo 05.08.2014, aktualisiert am 12.12.2014 um 00:11:18 Uhr
Goto Top
Hallo Rene,
kein Problem, hier ein Beispiel für die belegten Zellen in Spalte A des ersten Tabellenblattes:
Sub MakeHyperlinks()
    Dim cell As Range
    With Worksheets(1)
        For Each cell In .Range("A1", .Range("A1").End(xlDown))  
            .Hyperlinks.Add cell, cell.Value
        Next
    End With
End Sub
Hier das Demo-Sheet dazu.

Grüße Uwe
Rene1976
Rene1976 05.08.2014 um 16:30:31 Uhr
Goto Top
Hi Uwe,

der Code hat einwandfrei funktioniert.
Problem gelöst.

Super vielen Dank.

Gruß,

Rene