Hyperlinks auslesen und als gesamte liste geben

Sub ExtractLinks()
    Dim wsIN As Worksheet, wsOUT As Worksheet, link As Hyperlink, cnt As Long, rngOut as Range
    ' Sheet das die Hyperlinks enthält  
    Set wsIN = Sheets(1)
    ' Sheet in dem die CSV-Inhalte extrahiert werden  
    Set wsOUT = Sheets(2)
    cnt = 1
    With wsIN
        For Each link In .Hyperlinks
            Set rngOut = wsOUT.Range("A" & wsOUT.UsedRange.SpecialCells(xlCellTypeLastCell).Row + IIf(cnt = 1, 0, 1))  
            With wsOUT.QueryTables.Add(Connection:="TEXT;" & link.Address, Destination:=rngOut)  
                .Name = "import"  
                .FieldNames = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .TextFilePlatform = 65001           ' Datei ist UTF-8 Fomat laut deiner Aussage  
                .TextFileStartRow = IIf(cnt = 1, 1, 2)
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileSemicolonDelimiter = True
                .Refresh BackgroundQuery:=False
                .Delete
            End With
            cnt = cnt + 1
        Next
        
        wsOUT.Columns.AutoFit
        wsOUT.Select
    End With
End Sub