Vervang de hele code in je Module door deze:
Code:
Public Function caramboles(c As Integer)
Dim r As Range
i = 1
For Each r In Range("B4:B1000").SpecialCells(2, 1)
If r = c Then
caramboles = caramboles + r.Offset(, 3)
i = i + 1: If i > 3 Then Exit For
End If
Next
End Function
Public Function beurten(c As Integer)
Dim r As Range
i = 1
For Each r In Range("B4:B1000").SpecialCells(2, 1)
If r = c Then
beurten = beurten + r.Offset(, 4)
i = i + 1: If i > 3 Then Exit For
End If
Next
End Function