step4:
If i = HTMLRows6.Length Then GoTo step5
i = i + 1
On Error Resume Next
str = HTMLRows(i).innerText
str2 = HTMLRows6(ii).innerText
If Len(HTMLRows(i).innerText) = 0 Then GoTo step4
If InStr(HTMLRows(i).innerText, "X") = 0 Then GoTo step5
For x = 2 To 200
If Trim(Split(HTMLRows(i).innerText, vbCrLf)(x)) <> "" Then
str = Trim(Split(HTMLRows(i).innerText, vbCrLf)(x))
If InStr(str, "+") = 0 Then
Select Case s
Case 0
y = 2
If InStr(str, "I dag ") <> 0 Then
str = Replace(str, "I dag ", "")
mDate = Date
ElseIf InStr(str, "I mrg ") <> 0 Then
mDate = DateAdd("d", 1, mDate)
str = Replace(str, "I mrg ", "")
End If
hourdate = str
str2 = Trim(Split(HTMLRows6(ii).innerText, vbCrLf)(3))
country = Split(str2, ".")(0)
League = str2
Cells(j, "A").value = DateValue(mDate) + TimeValue(hourdate)
Cells(j, "I").value = "o"
lremove = Len(country) + 2
League = mId(League, lremove)
League = mId(League, 2)
League = Application.VLookup(League, sheet.Range("AN" & 2 & ":AR" & lr3), 5, False)
On Error Resume Next
country = Application.VLookup(country, sheet.Range("G" & 2 & ":J" & lr2), 2, False)
League = Application.VLookup(League, sheet.Range("AN" & 2 & ":AR" & lr3), 6, False)
Cells(j, "C").value = country
Cells(j, "D").value = League
Case 1
yy = 15
Case 2
yy = 1
On Error Resume Next
str= Replace(str, " FC", "")
str= Replace(str, " (Wom)", " (W)")
str = Application.VLookup(str, sheet.Range("AC" & 2 & ":AH" & lrdata), 6, False)
Case 3
yy = 14
Case 4
yy = 0
str = Replace(str, "X", "-")
Case 5
yy = 13
Case 6
yy = -1
End Select
Cells(j, y + yy).value = str
y = y + 1
s = s + 1
If s = 7 Then
s = 0
yy = 0
End If
If y = 9 Then
j = j + 1
y = 2
If InStr(HTMLRows(i).innerText, "eller") <> 0 Then Exit For
If InStr(HTMLRows(i).innerText, "---") <> 0 Then Exit For
If InStr(HTMLRows(i).innerText, "Moneyline") <> 0 Then Exit For
End If
End If
End If
Next x
ii = ii + 1
GoTo step4
I maked the part that handles the teams in red
Bookmarks