Jammer dat het niet werkt. Ik begrijp niet waarom het bij mij wel werkt, maargoed. Toch nog een poging hieronder
Webscraping is trouwens geen betrouwbare methode. Bij een kleine wijziging op de achtergrond van de pagina werkt de code niet meer.
Waar mogelijk gebruik power query. Ik zag dat het hier niet mogelijk was, gezien de wens is een tekstveld op te halen ipv een tabel.
Sub tabelophalen()
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://www.e-lotto.be/NL/drawGames/lotto/results/result/last"
Do While .ReadyState <> READYSTATE_COMPLETE: DoEvents: Loop
Application.Wait DateAdd("s", 10, Now)
Set ieDoc = .Document
Set ieTxt = ieDoc.getElementsByClassName("results")(0)
ThisWorkbook.Sheets(1).Cells(5, 4).Resize(, 8) = Split(Replace(ieTxt.InnerText, "+", ""), vbCrLf)
.Quit
End With
End Sub