Sub EbayBeendeteAngebotePreisDatum()
Dim url As String
Dim IE As Object
Dim nodeOfferContainer As Object
Dim nodeAllOffers As Object
Dim nodeOneOffer As Object
Dim currentRowDest As Long
currentRowDest = 2
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate url
Do: DoEvents: Loop Until IE.readyState = 4
On Error Resume Next
Set nodeOfferContainer = IE.document.getElementByID("srp-river-results")
On Error GoTo 0
If Not nodeOfferContainer Is Nothing Then
Set nodeAllOffers = nodeOfferContainer.getElementsByClassName("s-item")
For Each nodeOneOffer In nodeAllOffers
ActiveSheet.Cells(currentRowDest, 1).Value = nodeOneOffer.getElementsByTagName("h3")(0).innerText
ActiveSheet.Cells(currentRowDest, 2).Value = nodeOneOffer.getElementsByClassName("s-item__price")(0).innerText
ActiveSheet.Cells(currentRowDest, 3).Value = nodeOneOffer.getElementsByClassName("s-item__ended-date")(0).innerText
currentRowDest = currentRowDest + 1
Next nodeOneOffer
Else
MsgBox "Keine Angebote gefunden"
End If
Columns("A:C").EntireColumn.AutoFit
IE.Quit
End Sub