Formel neben Webabfragenergebnis

sub auslesen()
Dim wks As Worksheet, sps As Worksheet, Zeile As Long
Set wks = Worksheets("MASTERDATA")
Set sps = Worksheets("INPUT")
With sps.QueryTables.Add(Connection:="URL;" & wks.Cells(2, 3).Value, _
Destination:=sps.Cells(1, 1))
.Name = "INPUTLIST"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.RefreshAll
End Sub

Function linkauslesen(zelle As Range)
Application.Volatile
linkauslesen = zelle.Hyperlinks(1).Address
End Function