Umkehrfunktion zu HYPERLINK

Forumthread: Umkehrfunktion zu HYPERLINK

30.12.2005 21:15:26

Siegfried

Hallo Exceler,
ich würde gern aus einem Hyperlink in einer Zelle den URL und ggf. den "Freundlichen Namen" in einer anderen Zelle auswerten. Das ganze wäre also eine Umkehrung der HYPERLINK-Funktion. Weiss jemand eine Lösung ohne VBA?
Siegfried

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umkehrfunktion zu HYPERLINK

30.12.2005 21:34:36

Beate
AW: Umkehrfunktion zu HYPERLINK

30.12.2005 22:17:50

Siegfried
AW: Umkehrfunktion zu HYPERLINK

30.12.2005 23:00:17

Josef
Korrektur

30.12.2005 23:03:18

Josef
AW: Umkehrfunktion zu HYPERLINK

30.12.2005 23:06:26

{Boris}

AW: Umkehrfunktion zu HYPERLINK

30.12.2005 21:34:36

Beate

Hallo Siegfried,
ich glaube nicht, dass das ohne VBA geht. Mit VBA schau mal hier:
http://www.online-excel.de/fom/fo_read.php?f=1&bzh=-1&h=6348&ao=1
Gruß,
Beate

AW: Umkehrfunktion zu HYPERLINK

30.12.2005 22:17:50

Siegfried

Hallo Beate,
als VBA-Lösung habe ich schon folgendes gefunden: https://www.herber.de/mailing/061499h.htm.
Ich möchte es aber gern als Tabellenfunktion haben. Ausserdem scheint es mir bei deinem Beispiel in erster Linie um das Auslesen von URLs aus html-Seiten zu gehen.
Hat noch jemand einen Vorschlag?
Siegfried

AW: Umkehrfunktion zu HYPERLINK

30.12.2005 23:00:17

Josef

Hallo Siegfried!
So!

Tabelle1

	A	B	C
1	XLForum	http://www.herber.de/	XLForum
2	http://www.herber.de/	http://www.herber.de/	http://www.herber.de/

Formeln der Tabelle

A1 : =HYPERLINK("http://www.herber.de/";"XLForum")
B1 : =readlink(A1;"adresse")
C1 : =readlink(A1;"name")
A2 : =HYPERLINK("http://www.herber.de/")
B2 : =readlink(A2;"adresse")
C2 : =readlink(A2;"name")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Und diesen Code in ein allgemeines Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function ReadLink(ByRef Zelle As Range, ByVal Typ As String) As String
Dim strForm As String

If Zelle.Count > 1 Then ReadLink = CVErr(xlErrRef): Exit Function
strForm = Replace(Replace(Replace(Replace(Replace(Zelle.Formula, "HYPERLINK", ""), "(", ""), ")", ""), "=", ""), """", "")
If Left(Zelle.Formula, 6) <> "=HYPER" Then
  ReadLink = "Kein Link"
Else
  If LCase(Typ) = "adresse" Then
    If InStr(1, strForm, ",") > 0 Then
      ReadLink = Left(strForm, InStr(1, strForm, ",") - 1)
    Else
      ReadLink = strForm
    End If
  ElseIf LCase(Typ) = "name" Then
    ReadLink = Mid(strForm, InStr(1, strForm, ",") + 1, 99)
  Else
    ReadLink = CVErr(xlErrName)
  End If
End If
End Function

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Korrektur

30.12.2005 23:03:18

Josef

Hallo Siegfried!
Nimm diesen Code!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function ReadLink(ByRef Zelle As Range, ByVal Typ As String) As Variant
Dim strForm As String

If Zelle.Count > 1 Then ReadLink = CVErr(xlErrRef): Exit Function
strForm = Replace(Replace(Replace(Replace(Replace(Zelle.Formula, "HYPERLINK", ""), "(", ""), ")", ""), "=", ""), """", "")
If Left(Zelle.Formula, 6) <> "=HYPER" Then
  ReadLink = "Kein Link"
Else
  If LCase(Typ) = "adresse" Then
    If InStr(1, strForm, ",") > 0 Then
      ReadLink = Left(strForm, InStr(1, strForm, ",") - 1)
    Else
      ReadLink = strForm
    End If
  ElseIf LCase(Typ) = "name" Then
    ReadLink = Mid(strForm, InStr(1, strForm, ",") + 1, 99)
  Else
    ReadLink = CVErr(xlErrName)
  End If
End If
End Function

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Umkehrfunktion zu HYPERLINK

30.12.2005 23:06:26

{Boris}

Hi Siegried,
wenn der Hyperlink mittels der Funktion HYPERLINK erzeugt wurde, dann:
Name definieren, Name: Formel
Bezieht sich auf:
=TEIL(ZELLE.ZUORDNEN(6;INDIREKT("ZS(-1)";));13;999)
In A1 steht ide Formel:
=HYPERLINK("http://www.excelformeln.de";"{Jens + WF + Boris}")
In B1 zunächst die Formel auslesen mit:
=Formel
In B2 für die URL:
=LINKS(B1;FINDEN(";";B1)-2)
In B3 für den "Freundlichen Namen":
=WECHSELN(TEIL(B1;FINDEN(";";B1)+2;999);""")";)
Grüße Boris

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Hyperlink erstellen: Beginne mit der Erstellung eines Hyperlinks in Excel. Verwende die Funktion HYPERLINK in Zelle A1:
```
=HYPERLINK("http://www.example.com", "Beispiel")
```
Formel zur Auswertung: Um den URL und den "Freundlichen Namen" aus dem Hyperlink auszulesen, erstelle zwei weitere Formeln in den Zellen B1 und C1:
- Für den URL in B1:
```
=LINKS(A1; FINDEN(";"; A1)-2)
```
- Für den "Freundlichen Namen" in C1:
```
=WECHSELN(TEIL(A1; FINDEN(";"; A1)+2; 999); """);"")
```

Funktion zum Auslesen: Wenn Du die Umkehrfunktion ohne VBA verwenden möchtest, kannst Du eine benutzerdefinierte Funktion wie ReadLink einsetzen. Dies erfordert jedoch ein allgemeines Modul, in dem Du den folgenden Code einfügst:

Public Function ReadLink(ByRef Zelle As Range, ByVal Typ As String) As String
   Dim strForm As String
   If Zelle.Count > 1 Then ReadLink = CVErr(xlErrRef): Exit Function
   strForm = Replace(Replace(Replace(Replace(Replace(Zelle.Formula, "HYPERLINK", ""), "(", ""), ")", ""), "=", ""), """", "")
   If Left(Zelle.Formula, 6) <> "=HYPER" Then
       ReadLink = "Kein Link"
   Else
       If LCase(Typ) = "adresse" Then
           If InStr(1, strForm, ",") > 0 Then
               ReadLink = Left(strForm, InStr(1, strForm, ",") - 1)
           Else
               ReadLink = strForm
           End If
       ElseIf LCase(Typ) = "name" Then
           ReadLink = Mid(strForm, InStr(1, strForm, ",") + 1, 99)
       Else
           ReadLink = CVErr(xlErrName)
       End If
   End If
End Function

Häufige Fehler und Lösungen

Fehler: "Kein Link": Wenn die Funktion ReadLink "Kein Link" zurückgibt, überprüfe, ob die Zelle tatsächlich einen Hyperlink enthält und ob die Formel korrekt eingegeben wurde.
Falsche Ausgaben: Stelle sicher, dass die Formeln in den Zellen B1 und C1 richtig geschrieben sind, und dass die Zelle A1 den Hyperlink korrekt enthält.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die Excel-Funktion ZELLE in Kombination mit INDIREKT nutzen, um den Link aus einer Zelle auszulesen:

=TEIL(ZELLE.ZUORDNEN(6;INDIREKT("A1"));13;999)

Praktische Beispiele

Hyperlink auslesen: Angenommen, Du hast in Zelle A1 einen Hyperlink:

=HYPERLINK("http://www.example.com", "Beispiel")

URL auslesen:
```
=LINKS(A1; FINDEN(";"; A1)-2)
```

Freundlichen Namen auslesen:

=WECHSELN(TEIL(A1; FINDEN(";"; A1)+2; 999); """);"")

VBA-Alternative: Nutze die ReadLink-Funktion, um den URL und den Namen aus einer Zelle mit Hyperlink zu extrahieren:
```
=ReadLink(A1, "adresse")  ' Für URL
=ReadLink(A1, "name")     ' Für den "Freundlichen Namen"
```

Tipps für Profis

Benutzerdefinierte Funktionen: Erstelle eigene Funktionen mit VBA, um komplexere Anforderungen zu erfüllen.
Datenvalidierung: Verwende Datenvalidierung, um sicherzustellen, dass nur gültige Hyperlinks eingegeben werden.
Excel-Dokumentation: Halte Dich über die neuesten Excel-Funktionen und -Updates informiert, um Deine Arbeitsweise zu optimieren.

FAQ: Häufige Fragen

1. Kann ich Hyperlinks aus mehreren Zellen gleichzeitig auslesen?
Ja, Du kannst die Formeln in den entsprechenden Zellen nach unten ziehen, um mehrere Hyperlinks auszulesen.

2. Funktioniert das Auslesen von Hyperlinks in allen Excel-Versionen?
Die meisten Funktionen und Formeln sind in neueren Excel-Versionen wie Excel 2016 und 2019 verfügbar. Stelle sicher, dass Du die richtige Version verwendest.

3. Gibt es eine Möglichkeit, Hyperlinks ohne VBA auszulesen?
Ja, Du kannst die Funktion HYPERLINK und andere Excel-Formeln verwenden, um Hyperlinks aus Zellen auszulesen, jedoch ist diese Methode möglicherweise weniger flexibel als eine VBA-Lösung.

Beliebteste Forumthreads (12 Monate)

Forumthread: Umkehrfunktion zu HYPERLINK

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Umkehrfunktion für HYPERLINK in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread