Sub Ergebnisse()
Dim qt As QueryTable
Dim URL As String
Dim i As Byte
For i = 1 To 38
URL = Adresse.Range("A2").Value & i & "/"
Set qt = Daten.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Cells(i * 10, 1))
With qt
.RefreshOnFileOpen = True
.Name = "Ergebnis"
.WebFormatting = xlWebFormattingNone
.WebSelectionType = xlSpecifiedTables
.WebTables = 2
.Refresh
End With
Next i
Rows("1:9").Select
Selection.Delete Shift:=xlUp
End Sub