Dag Arnold,

je kent me misschien al een beetje

Ik dénk het 

Het zou kunnen dat we iets verschillend bedoelen. Me baserend op je laatste bijlage heb ik toch de indruk dat je manueel op 2 plaatsen van je werkblad gegevens plakt en pas daarna de verwerkingsmacro uitvoert. Bij JeanPierre zit het plakken in de macro.
In stappen:
1) met de eerste knop wordt de lotto-website geopend
2) manueel selecteren en kopiëren (vanaf dan staan de gegevens op het klembord)
3) terug naar Excel en de tweede knop klikken = plakken + verwerken

Bij JeanPierre punten 2 en 3 nog in afzonderlijke fases (trekking + winstverdeling), maar die kunnen we samenvoegen mocht het met webquery niet lukken.

Mvg,
Molly

ppfftt , al de ganse namiddag er mee bezig..
ik heb de code (step4) van deze website gehaald en alles uitgevoerd zoals in de uitleg wordt gegeven : https://www.guru99.com/data-scraping-vba.html
waarom krijg ik die fout zoals bijgevoegd als screencopy ?
Mvg,
Arnold.

Probeer het eens met deze

Sub tabelophalen()
 With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https://www.e-lotto.be/NL/drawGames/lotto/results/result/last"
   
     Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE
      DoEvents
     Loop
     
     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

@Molly, uit nieuwsgierigheid, krijg je ergens een foutmelding?

goedemorgen Molly ,
het foutje wat de winsten betreft is opgelost , door de winsten op een andere manier te importeren was de lus fout : de winsten op de website staan in volgorde van 6 gewonnen naar 1+ , in Excel staan ze van 1+ naar 6 gewonnen , dit is zo opgemaakt door JP en ik vind die opmaak goed.

wat die controle op de datum betreft : ik wilde vermijden dat als de uitslag er als staat op het blad "Historie" er dezelfde nog eens bijkomt.
ik neem nu de datum mee bij het kopiëren en vul deze in op het werkblad "Historie" en controleer nu of deze er al staat. Bedankt voor deze tip 

Mvg,
Arnold.

Veerj , ik krijg de zelfde foutmelding....
maar ik heb op het web een code gevonden die werkt voor een bepaalde website en data , ik heb geprobeerd om die te gebruiken voor de Webpagina van de Lotto maar ik slaag er niet in...wil je eens kijken naar die code ?
Mvg,
Arnold.

Private Sub CommandButton1_Click()
' TeachExcel.com

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant

'Website to go to.
website = "https://finance.yahoo.com/quote/EURUSD=X?p=EURUSD=X"
[color=blue]'website = "https://www.e-lotto.be/NL/drawGames/lotto/results/result/last"[/color] : dit is de website van de Lotto die zou moeten gebruikt worden

' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", website, False

' Get fresh data.
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
price = html.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)").Item(0).innerText

' Output the price into a message box.
MsgBox price

End Sub



Je moet per pagina de juiste objectnamen zien te vinden. In dit geval classname. Het zit ergens verstopt in het script achter de pagina.
Rechtermuisknop en dan iets als element controleren. Zo kom je bij het script.

ik denk dat ik zowat de ganse namiddag niets anders heb gedaan gisteren , vind het niet.....nu is niet zo erg maar vind het jammer , aangezien die code werkt met een andere website zou het volgens mij dan ook moeten lukken met de Lotto website , maar mijn kennis is niet groot genoeg.
toch bedankt voor het meedenken !
Mvg,
Arnold.

ps met Uw laatste code krijg ik wel een andere foutmelding...zie screencopy.