Hallo zusammen
in einer Zelle steht ein Text ev. mit oder ohne Hyperlink auf eine andere Datei auf dem Server.
Nun möchte ich den text in ein separates Feld und den Pfad des Hyperlinks in ein anderes Feld schreiben.
Ich krieg einfach den Syntax nicht hin um die Hyperlink-addresse auszulesen.
Sub hyperlinkAuslesen()
sText = Cells(zeile, spalte).Value
If Cells(zeile, spalte) = Hyperlink Then
sLink = Cells(zeile, spalte).Hyperlink.Address
End If
End Sub
kann mir da jemand helfen?
Vielen Dank
Hallo zusammen
Hallo!
in einer Zelle steht ein Text ev. mit oder ohne Hyperlink auf
eine andere Datei auf dem Server.
Nun möchte ich den text in ein separates Feld und den Pfad des
Hyperlinks in ein anderes Feld schreiben.
Ich krieg einfach den Syntax nicht hin um die
Hyperlink-addresse auszulesen.
kann mir da jemand helfen?
Vielen Dank
Dein genannter Code müsste folgendermaßen abgeändert werden:
Sub HyperlinkAuslesen()
Dim sText As String
Dim SLink As String
'Code für Zelle A1
sText = Cells(1, 1).Value
SLink = Cells(1, 1).Hyperlinks(1).Address
'weiterer Code
End Sub
Eine Eigenschaft „Hyperlink“ gibt nur für grafische Objekt, aber nicht für einen Zellbereich (Range-Objekt). Auch wenn ein Zellbereich nur aus einer Zelle besteht, gibt es hier nur eine Hyperlink s -Auflistung, die ausgelesen werden muss.
Wenn Du nur eine Ausgabe in eine Zelle machen willst und die Adresse nicht im Code weiter verarbeiten willst, rate ich Dir zu einer benutzerdefinierten Funktion:
Public Function HyperlinkAdresse(a As Range, \_
Optional Index As Integer = 1) As String
HyperlinkAdresse = a.Hyperlinks(Index).Address
End Function
Deine Werte kannst Du dann wie folgt abfragen (Hyperlinks im Bereich A1:A3):
\*\*\* Tabelle: 'Tabelle1' \*\*\*
A B C
1 Hyperlink 1 Hyperlink 1 http://www.wer-weiss-was.de/
2 Hyperlink 2 Hyperlink 2 http://www.google.de/
3 Hyperlink 3 Hyperlink 3 http://www.gmx.de/
\*\*\* benutzte Formeln \*\*\*
B5: =A5
C5: =hyperlinkadresse(A1)
B6: =A6
C6: =hyperlinkadresse(A2)
B7: =A7
C7: =hyperlinkadresse(A3)
Mit der o.g. Funktion kann man auch eine beliebige Hyperlink-Adresse aus einem angegebenen Bereich auslesen:
\*\*\* Tabelle: 'Tabelle1' \*\*\*
A B
1 der dritte Hyperlink
2 Hyperlink 1 http://www.gmx.de/
3 Hyperlink 2
4 Hyperlink 3
\*\*\* benutzte Formeln \*\*\*
B10: =hyperlinkadresse(A2:A4;3)
Hoffe das hilft weiter.
Gruß, tester!
End SubEine Eigenschaft „Hyperlink“ gibt nur für
grafische Objekt, aber nicht für einen Zellbereich
(Range-Objekt). Auch wenn ein Zellbereich nur aus einer Zelle
besteht, gibt es hier nur eine Hyperlink s -Auflistung,
die ausgelesen werden muss.
Dies hat mir geholfen
Vielen Dank
Urs