Guten Tag Zusammen.

Mein Rechner hat folgende Leistungen.

Officel Version: Excel 2019

OS : Windows 10

CPU: AMD Ryzen 3900x

Arbeitsspeicher: DDR4 80 GB

GPU: Radeon RX 580

Ich habe hier eine Excel Datei mit VBA erstellt, jedoch klappt es oft nicht. Zwar möchte ich die Fussball Spielergebnisse von mehreren Spieltagen automatisch aufrufen und in ein Blatt einfügen.

Als Beispiel:

Ziel: die Spielergebnisse von der dritten Bundesliga in 2016-2017 aufrufen und ins Blatt „Daten" einfügen

URL befindet sich in A1 im Blatt „Adresse" (die URL ist dynamisch)

i = die Anzahl der Spieltage

Eingefügt sollte es mit einer leeren Zelle hintereinander ins Blatt „Daten" werden.

z.B. es gibt 10 Spiele an einem Spieltag

die Daten vom ersten Spieltag wird ins Blatt „Daten" A1:F10

die vom zweiten Spieltag wird in A11:F22 eingefügt

Option Explicit

Sub Ergebnisse()
    
    Dim qt As QueryTable
    Dim URL As String
    Dim i As Byte


        For i = 1 To 10
    
        URL = Adresse.Range("A2").Value & i & "/"
                
                
                'je nach Liga Gesamtspielanzahl/Spieltag abändern
                Set qt = Daten.QueryTables.Add( _
                Connection:="URL;" & URL, _
                Destination:=Cells(i * 11, 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

So sieht es aus. Eigentlich sollten alle Spielergebnisse vom 1. Spieltag bis 38. Spieltag aufgerufen und automatisch in das Blatt übertragen werden. Jedoch klappt es selten.

Ich bin VBA Anfänger und versuche mich selbst einzulernen, aber ich habe bisher keine richtige Lösung gefunden.

Eurem Lösungsvorschlag werde ich echt dankbar.

Ich wünsche euch eine schöne Zeit.

SW