'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