Microsoft Excel

Herbers Excel/VBA-Archiv

Text-URLs in Hyperlinks umwandeln

Betrifft: Text-URLs in Hyperlinks umwandeln von: Burghard
Geschrieben am: 13.08.2014 12:14:46

Hallo,

ich habe noch Excel 2000. Ich füge häufiger in Tabellenblätter zahlreiche URLs ein. Diese sind danach aber nur einfacher Text und nicht als Hyperlink markiert.
Wie kann ich mittels VBA alle diese URLs in einem Rutsch in Hyperlinks umwandeln (ohne Öffnen)?

In Excel 2007 ff gibt es dafür eine Lösung. Unter EXTRAS ==> AutoKorrektur:
Während der Eingabe ersetzen ==> Internet- und Netzwerkpfad durch Hyperlinks

Leider ist dies so bei Excel 2000 nicht möglich. Hilfe wäre nett.

Grüße Burghard

  

Betrifft: AW: Lösung von: Burghard
Geschrieben am: 13.08.2014 12:55:41

Sub In_Hyperlink_umwandeln()
Dim Zelle As Range
For Each Zelle In Range(Range("C2"), Cells(Rows.Count, 3).End(xlUp))
    Zelle.Parent.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value, TextToDisplay:=Zelle.Value
Next
End Sub



  

Betrifft: AW: Lösung von: Martin
Geschrieben am: 13.08.2014 12:57:51

Hallo Burghard,

da bist du einen Tick schneller gewesen als ich:

Sub TextToURL()
    Dim rngCell As Range
    
    For Each rngCell In ActiveSheet.UsedRange
If InStr(rngCell, "http://") > 0 Or InStr(rngCell, "www.") > 0 Then
            rngCell.Hyperlinks.Add Anchor:=rngCell, Address:=rngCell.Text
        End If
    Next
    
End Sub
Ich mache eine Abfrage, ob "www." oder "http://" im Text der Zelle enthalten ist.

Viele Grüße

Martin


  

Betrifft: AW: Deine bessere Lösung von: Burghard
Geschrieben am: 13.08.2014 13:47:12

Hallo Martin,

Deine Lösung ist eine Klasse besser! Hab ich so übernommen! Danke!

Grüße Burghard


 

Beiträge aus den Excel-Beispielen zum Thema "Text-URLs in Hyperlinks umwandeln"