Hallo,
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 & "/"
'je nach Liga Gesamtspielanzahl/Spieltag abändern
Set qt = Daten.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Cells(i * 10, 1))
'Informationen, wie wir die Tabelle auslesen möchten
With qt
.RefreshOnFileOpen = True
.Name = "Ergebnis"
.WebFormatting = xlWebFormattingNone
'Hier ändern, ob wir die ganzen von der Seite oder nur definierten
.WebSelectionType = xlSpecifiedTables
'Sollte mehrere Seiten ausgelesen werden, "1,2"
.WebTables = 2
.Refresh
End With
Next i
Rows("1:9").Select
Selection.Delete Shift:=xlUp
End Sub
Nein, bitte siehe dies Bild.
Das vorherige war falsch.
Also i = 1 bis 38
Hat es einwandfrei funktioniert?!
Bei mir hängt es auf und dann muss ich immer von Task manager die task beenden.
Gruß
SW
|