Probeer deze eens te runnen. Zoals je ziet via een andere site gehaald.
Zoals ook in je eerdere draadje aangegeven, laat die website het niet toe om de data op deze manier binnen te halen.
Sub jec()
Dim x00, it, Url, xhtml As Object
Dim i As Long, x As Long
ReDim ar(8, 0)
Url = "https://www.geschenkwensen.be/lotto-uitslagen/"
Set xhtml = CreateObject("HTMLFile")
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Url, False
.send
xhtml.body.innerHTML = .responseText
x00 = Split(Replace(Replace(xhtml.getElementsByTagName("p")(5).innerText, " ", ""), "+", Chr(150)), Chr(150))
For i = 20 To 27
For Each it In Split(xhtml.getElementsByTagName("strong")(i).innerText, vbCrLf)
If InStr(it, "€") Then
ar(x, 0) = Replace(Split(it, "€ ")(1), ".", "") + 0
Else
ar(x, 0) = 0
End If
x = x + 1
Next
Next
End With
With ThisWorkbook.Sheets(1)
.Range("D5").Resize(, 6) = x00
.Range("D5").Resize(, 6) = .Range("D5").Resize(, 6).Value
.Range("K5") = x00(UBound(x00))
.Range("T8").Resize(x) = ar
End With
End Sub