|
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | 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 & "/"
Set qt = Daten.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Cells(i * 11, 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
|
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
|