Hyperlinks in einer Spalte definieren.

Bild

Betrifft: Hyperlinks in einer Spalte definieren.
von: Danny Faak
Geschrieben am: 09.12.2003 13:51:42

Hallo Leute,

habe ein Problem: In einer Adresstabelle habe Ich eine Spalte in die Ich mit einer Eingabemaske www.-Adressen eingebe.
Ich möchte halt das der mir die irgendwie per Makro automatisch als blauen Hyperlink text "hier" anzeigt, und die direkt mit der Adresse verlinkt...
Nur wie?
Danke schonmal im vorraus

Bild


Betrifft: AW: Hyperlinks in einer Spalte definieren.
von: Karl-Otto Reimann
Geschrieben am: 09.12.2003 18:21:01

Hallo Danny
Du mußt natürlich definieren,wie Deine Eingabe beginnt:


Sub LinkErstellen()
Dim rngAct As Range
For Each rngAct In Range("A1").CurrentRegion.Cells
If Left(rngAct, 7) = "http://" Then
        rngAct.Hyperlinks.Add rngAct, rngAct.Value
      End If
   Next rngAct
End Sub


mfG KO


Bild

Beiträge aus den Excel-Beispielen zum Thema " Hyperlinks in einer Spalte definieren."