Hyperlink-Adresse unvollständig
08.03.2016 18:26:00
Stefan
ich versuche per VBA die Adresse von Hyperlinks auszulesen. Leider bekomme ich als Ergebnis manchmal (!) nur den "letzten Teil" des Gesamtpfades angezeigt (bspw. die letzten beiden Ordner und den Dateinamen). Weiß jemand woran das liegen könnte? Vielen Dank schon mal im Voraus!
Hier der Code den ich verwende; Bereich ist der Bereich in dem die Hyperlinks stehen (als Beispiel):
Dim Zelle As Range, Bereich As Range, t As Long
Set Bereich = ActiveSheet.Range("D1:D20")
t = 0
For Each Zelle In Bereich
If Zelle.Hyperlinks.Count = 1 Then
t = t + 1
Zelle.Offset(0, 1) = Hyperlinks(t).Address
End If
Next Zelle