Hallo VBA Experten,

ich habe ein richtig gutes Makro, welches mir von Webseiten bestimmte Einträge abfragt. 

Es geht um beendete Fußballspiele https://www.totalcorner.com/match/today/ended

Auf dieser Seite sind beendete Matches gelistet. Zu jedem Match gibt es weiter Infos auf einer anderen Seite (u. a. das Halbzeitergebnis)

Das Makro listest mir in Spalte "A" die Spielpaarungen auf (als Link zu den Detail-Info-Seiten) und trägt in Spalte "B" einen bestimmten Wert aus den Detail-Info-Seiten ein,- passend zu jedem gelisteten Spiel der Spalte "A"

Nun möchte ich noch einen weiteren Wert von den Detail-Seiten abfragen,- das entsprechende Halbzeitergebnis.nach Spalte "K"

Ich weis nicht, wie ich das umsetzen soll.

Das Makro

Sub infos()
  Dim objXMLHTTP As Object, html As Object, html1 As Object
  Dim link As Object, div As Object
  Dim iRow As Long, start As Single, slink As String
 
  iRow = 1
  start = Timer
  Set html = CreateObject("htmlfile")
  Set html1 = CreateObject("htmlfile")
  Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
  objXMLHTTP.Open "GET", "https://www.totalcorner.com/match/today/ended/", False
  objXMLHTTP.send
  If objXMLHTTP.Status = 200 Then
    html.body.innerHTML = objXMLHTTP.responseText
    With ActiveSheet
      .Cells.Clear
      For Each link In html.getElementsByTagName("a")
        If InStr(1, link.href, "/match/corner-stats") <> 0 Then
          slink = Replace(link.href, "about:", "https://www.totalcorner.com")
          .Hyperlinks.Add Anchor:=.Cells(iRow, 1), _
                          Address:=slink, _
                          TextToDisplay:=link.nameProp
          objXMLHTTP.Open "GET", slink, False
          objXMLHTTP.send
          If objXMLHTTP.Status = 200 Then
            html1.body.innerHTML = objXMLHTTP.responseText
            For Each div In html1.getElementsByTagName("div")
              If div.classname = "match-facts-pred" Then
                .Cells(iRow, 2) = div.innerText
              End If
            Next
          End If
          iRow = iRow + 1
        End If
      Next
      .Columns.AutoFit
    End With
  End If
  Set objXMLHTTP = Nothing
  Set html = Nothing
  Set html1 = Nothing
  MsgBox (Timer - start) & " sec."

End Sub

Kann mal jemand bitte drauf schaun und mir ggf. die passende Ergänzug zum Makro schreiben,- so dass das entsprechende Halbzeitergebnis in Spalte "K" eingetragen wird?

Viele Grüße