Dag Arnold,
Het zal jou niet verbazen dat ik, wat Veerj wél voor elkaar heeft gekregen
, tussendoor ook nog even had geprobeerd, maar ik kwam enkel bij de getallen van de
voorgaande trekking uit
, en het vervolgens on hold gezet...
Tussendoor @ Veerj: zie jij het eventueel zitten om kort uit te leggen hoe je de (2) bij 'Results-cont' hebt gevonden? Of is dat gewoon het resultaat van geduldig (blind) zoeken?
wat moet er veranderd worden zodat het reserve nummer één cel naar links opschuift ?
Me je echte bestand herinnerend, moet dat niet naar
rechts zijn?
In dat geval: als je dat niet nadien op je werkblad wil corrigeren (dat zou ik ook niet willen
) zal je objRes eerst in de code moeten bewerken.
Je kan een array maken van één element meer (het voorlaatste dan leeg laten en het laatste van objRes in het laatste stoppen)
OF een array maken van één element minder en het reservegetal (objRes(6)) rechtstreeks op je werkblad zetten.
De eerste methode even uitgewerkt:
'na deze regel
objRes = Split(Replace(.document.getElementsByClassName("Results-cont")(2).innerText, Chr(13), ""), Chr(10))
'dit toevoegen
Dim arr_tr(1 To 8 ) 'let op met de spatie achter de 8: die moet weg maar geeft hier anders een smiley, hierna ook nog 2 maal
For i = 1 To 6
arr_tr(i) = Val(objRes(i - 1))
Next i
arr_tr(8 )= Val(objRes(6))
'en ipv
.Offset(1).Resize(, UBound(objRes) + 1) = objRes
.Offset(1).Resize(, UBound(objRes) + 1) = .Offset(1).Resize(, UBound(objRes) + 1).Value
'één regel:
.Offset(1).Resize(,8 ) = arr_tr
Mvg,
Molly