Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlinks als Text auslesen

Hyperlinks als Text auslesen
Jockel
Hallo,
Gibt es eine Formel oder eine Funktion, die den Pfad oder die Zieldatei eines Hyperlinks in eine Zelle schreiben kann.
Hintergrund: ich habe ein Spalte (B), die ist voll mit Hyperlinks. Ich wollte nun in einer deneben liegenden Spalte den Pfad oder die Zieldatei als Text sehen, damit ich sehe, ob alle Dateien richtig verlinkt sind.
Kann man den Pfad irgend wie auslesen und als String ausgeben ?
Danke
Jockel

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Wenns nur sehen ist ;-)
16.12.2010 12:52:29
Renee
Jockel,
dann brauchst du wohl keine Formel, denn wenn du mit der Maus über den Link fährst, wird dir doch sowas angezeigt:
file:\\blabla\blubub\gugus.xls
- Klicken Sie einmal....

also siehst du doch, was du sehen willst, oder nicht?
GreetZ Renée
AW: Wenns nur sehen ist ;-)
16.12.2010 12:55:09
Jockel
Hi Renee,
ja das ist schon klar, aber bei über 1000 Links ist das mühselig. :-)
Ich dachte es geht schneller, wenn ich den Link als Textform in einer Zelle sehen
Gruß
Jockel
AW: Wenns nur sehen ist ;-)
16.12.2010 13:04:40
Rudi
Hallo,
in ein Modul:
Function HypAdr(rng As Range) As String
HypAdr = rng.Hyperlinks(1).Address _
& IIf(rng.Hyperlinks(1).SubAddress  "", "#" & rng.Hyperlinks(1).SubAddress, "")
End Function

c2: =HypAdr(B2)
Gruß
Rudi
Anzeige
Also dann ab in die Tabelle
16.12.2010 13:04:44
Renee
Jockel,
ActiveCell.offset(0,1) = ActiveCell.Hyperlinks.Item(1).Address

würde dir deine gesuchte Information der aktiven Zelle in die Zelle rechts davon schreiben.
Kommst du damit klar (ich meine das Archiv müsste übervoll an Infos zu "einen Zellenbereich abklappern sein ;-) ?
GreetZ Renée
aus dem forum
16.12.2010 13:07:36
selli
hallo jockel,
eine

Function aus dem forum.
gruß selli
' 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
A B C D
1 test https://www.herber.de/
2 Link https://www.herber.de/forum/index.htm
3 test #NoLink
Formeln der Tabelle
D1 : =linktotext(A1)
D2 : =linktotext(A2)
D3 : =linktotext(A3)
Anzeige
Renee ist heute Forumspolizist :-) e.o.m.
16.12.2010 13:15:04
selli
.
Danke an alle, hat geholfen owT
16.12.2010 19:34:09
Jockel

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige