'This function finds the sums the edits obtained from
'Hijjawi's project and assign the sum to the articles we get through our website
'make sure the names in coloumn A, the edits in B, the articles we get from our website in C.
'running the function gives the results in D, which is divided in E by 1000 to get kilo Bytes
'make sure that the transform of coma (, .) is correct and the edits match by checking some articles
Sub sortieren()
Dim i, j As Integer

For i = 2 To 903
For j = 2 To 13382

If (Cells(i, 3) = Cells(j, 1)) Then
Cells(i, 4) = Cells(j, 2).Value

End If
Next j
Next i
End Sub