Gruppe
Allgemein
Problem
Die Hyperlinks in diesem Blatt sollen in einer neuen Arbeitsmappe unter Angabe der Hyperlinkzelle und des Hyperlinkziels gelistet werden.
StandardModule: Modul1
Sub GetHyperlinks()
Dim wks As Worksheet
Dim hyp As Hyperlink
Dim iRow As Integer
Set wks = ActiveSheet
Workbooks.Add 1
For Each hyp In wks.Hyperlinks
iRow = iRow + 1
Cells(iRow, 1).Value = hyp.Range.Address
Cells(iRow, 2).Value = hyp.SubAddress
Next hyp
End Sub