ich möchte aus der Spalte 4 aus allen Zeilen welche Hyperlinks enthalten, diesen Link auslesen und in Spalte 6, jeweils in die betreffende Zeile einfügen.
In den Zeilen gibt es Zellen mit Zahlen von 0 bis 90900999 sowie Text wie z.B. 999-999_9999 9999. Nicht alle Zellen haben einen Link hinterlegt.
Ich habe den folgenden Code hier im Forum gefunden, dieser funktioniert leider nicht so, wie ich ihn benötige. Ich hoffe auf Hilfe und bedanke mich jetzt schon für Eure Zeit.
https://www.herber.de/bbs/user/162281.xlsm
Public Sub Hyperlink1()
Dim hlink As Hyperlink
Dim i As Long
i = 2
For Each hlink In Sheets(1).Hyperlinks
Sheets(1).Cells(i, 6).Value = hlink.Address
i = i + 1
Next hlink
End Sub
Gruß M@tt