Salve,
auch in einem Forum machen sich ein "Hi", "Hallo" oder ein üblicher Gruß
mit Bezug zur Tageszeit ganz gut...

Zu Deinem Problem:
Das Auslesen von Hyperlinks ist hier
http://www.supportnet.de/threads/1647202
schon einmal behandelt worden.

Ich denke, man muß den Link auslesen, in eine Hilfsspalte schreiben
und mit diesen Zellwerten versuchen, die Variable zu isolieren.
Folgendes Script

Sub hyperlinksTab1_auswertenTab2()
Dim lngI As Long 'Zähler für Schleife
Dim lngMax 'Variable für letzte gefüllte Zelle
'letzte gefüllte Zelle in Spalte 1 (=A) ermitteln
lngMax = ActiveSheet.Cells(65536, 1).End(xlUp).Row
For lngI = 1 To lngMax
'steht überhaupt etwas in der Zelle ?
If Cells(lngI, 1) <> "" Then
'hat die Zelle einen Hyperlink ?
If Cells(lngI, 1).Hyperlinks.Count > 0 Then
'schreibe Hyperlink in Spalte 1 der Tabelle2
Sheets("Tabelle2").Cells(lngI, 1) = Cells(lngI, 1).Hyperlinks(1).Address
End If
End If
Next lngI
'in Tab2 wechseln und dort Variable in Spalte B schreiben
Sheets("Tabelle2").Activate
For lngI = 1 To lngMax
'steht überhaupt etwas in der Zelle ?
If Cells(lngI, 1) <> "" Then
'alles rechts des "=" lesen und in Spalte 2 der Tabelle2 schreiben
Cells(lngI, 2) = _
        Right(Cells(lngI, 1), Len(Cells(lngI, 1)) - InStr(Cells(lngI, 1), "="))
End If
Next lngI
End Sub

geht von diesen Bedingungen aus:
- die Hyperlinks stehen in SpalteA der aktiven Tabelle
- alle Links haben die von Dir beschriebene Struktur

Wechselt die Linkstruktur und beinhaltet der Link z.B. mehrere "=", wird es schwieriger.
Haben alle Links die von Dir beschriebene Struktur, sollte das Makro Dein Problem lösen.
mfg
schnallgonz

Hallo ;-) ,

vielen Dank für die schnelle Antwort, habe es hinbekommen.
Aber gibt es keine Möglichkeit dies mit einer einfachen selbstgestrickten Funktion hinzubekommen etwa in der Form:

LIESLINK(Bereich) - sozusagen multifunktional einsetzbar

für eine einzelne Zelle ohne mit Schleifen und Abfragen "ob überhaupr etwas in der Zelle steht" zu arbeiten?

Ich kenne mich leider mit VB selbst überhaupt nicht aus.

Schöne Gruesse und vielen Dank

Hallo,
was Du möchtest, ist eine benutzerdefinierte Funktion, ein ganz neuer Wunsch.
Die willst Du dann für mehrere 1000 Links einsetzen und kein Makro??

Schleifen und Abfragen, ob etwas in der Zelle steht, muss sein, weil
das Makro sonst auf einen Fehler läuft.

Bei einer Funktion steht dann z.B. #WERT, dazu braucht man keine Abfrage.
Hier der gewünschte Einzeiler:

Public Function HypLinkText(Bezug)
HypLinkText = Bezug.Hyperlinks(1).Address
End Function

Willst Du diese Funktion überall nutzen, kopiere sie in ein Modul
der personl.xls, sonst nur in ein Modul der "1000Linkdatei".

In der Tabelle nutzt Du diese Funktion wie Excel-eigene Funktionen:
=HypLinkText(Bezug)
in eine Zelle
(manuell oder über <<Funktion einfügen--benutzerdefiniert>>)
und für "Bezug" den Bezug einer Zelle mit Hyperlink wählen

mfg
schnallgonz