cow,
bedankt om te helpen.
Dit is de code die er nu staat
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Address = "$C$2" Then
For k = 4 To 12
Cells(2, k) = Cells(2, k - 1) + 7
Next k
End If
If Target.Address = "$N$2" Then
If Cells(3, 3) <> "" Then
aantal_laagste = [N2]
If WorksheetFunction.CountA(Range(Cells(3, 3), Cells(3, 12))) > aantal_laagste Then
For r = 3 To Cells(Rows.Count, 2).End(xlUp).Row
laag = Cells(r, 13)
For lg = 1 To aantal_laagste
laagste = WorksheetFunction.Small(Range(Cells(r, 3), Cells(r, 12)), lg)
laag = laag - laagste
Next lg
Cells(r, 14) = laag
Next r
Range("B3:N82").Sort Key1:=[n3], Order1:=xlDescending, Header:=xlNo
Else
MsgBox ("Te weinig gespeelde wedstrijden om " & aantal_laagste & " af te trekken")
End If
End If
End If
Application.EnableEvents = True
End Sub
ps:ik weet dat ik de code tussen tags moet zetten maar weet niet hoe SORRY
mvg,lco