Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Hyperlinks in Text

Forumthread: Hyperlinks in Text

Hyperlinks in Text
21.05.2006 15:29:08
cdino
Hallo,
ich habe in einer Spalte eine Menge Hyperlinks. Diese möchte ich herauslesen, am besten in eine andere Spalte in TEXTFORM, also nur TEXT http://www....
Danke für die Hilfe
cdino
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks in Text
21.05.2006 15:56:28
Josef
Hallo ? (realnames sind hier üblich!)
Diesen Code in ein allgemeines Modul!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Function LinkToText(ByRef Zelle As Range) As String
Application.Volatile
On Error GoTo ErrExit
LinkToText = Zelle.Hyperlinks(1).Address
Exit Function
ErrExit:
LinkToText = "#NoLink"
End Function

In der Tabelle wendest du das so an!
Tabelle1
 ABCD
1test  https://www.herber.de/
2Link  https://www.herber.de/forum/index.htm
3test  #NoLink
Formeln der Tabelle
D1 : =linktotext(A1)
D2 : =linktotext(A2)
D3 : =linktotext(A3)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Hyperlinks in Text
21.05.2006 20:04:44
cdino
Danke schön, hat wunderbar funktioniert.

Forumthreads zu verwandten Themen

Anzeige