Link umwandeln in Linktext und Linkurl

Forumthread: Link umwandeln in Linktext und Linkurl

08.12.2004 13:07:29

Jens

Hi,
ich habe mal ein xls hoch geladen, mit nem beispiel was ich genau will:
https://www.herber.de/bbs/user/14508.xls
Es geht darum dass ich in meinem Excel in einer Spalte eine Link habe, der aus einem Linktext und einer Linkurl besteht. Dies möchte ich gerne splitten.
Habe irgendwie keine AHnung wie das gehen könnte.
Jens

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Link umwandeln in Linktext und Linkurl

Uduuh

AW: Link umwandeln in Linktext und Linkurl

Uduuh

Hallo,
in ein Modul kopieren und starten:


Sub HypSplitten()
Dim rng As Range
Set rng = Range("B3")
Do
If IsEmpty(rng) Then Exit Do
On Error GoTo nextRNG
With rng
.Offset(0, 1) = .Hyperlinks(1).TextToDisplay
.Offset(0, 2) = .Hyperlinks(1).Address
End With
nextRNG:
Set rng = rng.Offset(1, 0)
Loop
End Sub

Gruß aus'm Pott
Udo

Link umwandeln in Linktext und Linkurl

Forumthread: Link umwandeln in Linktext und Linkurl

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread