Sub eenkeerzetten(str1 As String, str2 As String, str3 As String)
With ActiveCell
.Value = str1
.Offset(, 1).Value = str2
.Offset(1, 1).Value = str3
End With
End Sub
Sub vijfkeerzetten(str1 As String, str2 As String, str3 As String)
Call eenkeerzetten(str1, str2, str3)
ActiveCell.Resize(2, 2).Copy ActiveCell.Offset(, 2).Resize(2, 8)
End Sub
Sub Zet7_45_17_15() '1
Call eenkeerzetten("7:45", "17:15", "8:5/6")
End Sub
Sub Zet5x7_45_17_15() '1
Call vijfkeerzetten("7:45", "17:15", "8:5/6")
End Sub
Sub Zet8_30_18_15() '2
Call eenkeerzetten("8:30", "18:15", "8:3/4")
End Sub
Sub Zet5x8_30_18_15() '2
Call vijfkeerzetten("8:30", "18:15", "8:3/4")
End Sub
Sub Zet9_45_17_15() '3
Call eenkeerzetten("9:45", "17:15", "6:3/4")
End Sub
Sub Zet5x9_45_17_15() '3
Call vijfkeerzetten("9:45", "17:15", "6:3/4")
End Sub
Sub Zet9_45_18_15() '4
Call eenkeerzetten("9:45", "18:15", "7:3/4")
End Sub
Sub Zet5x9_45_18_15() '4
Call vijfkeerzetten("9:45", "18:15", "7:3/4")
End Sub
Sub Zet11_45_17_15() '5
Call eenkeerzetten("11:45", "17:15", "5:1/4")
End Sub
Sub Zet5x11_45_17_15() '5
Call vijfkeerzetten("11:45", "17:15", "5:1/4")
End Sub
Sub Zet11_45_18_15() '6
Call eenkeerzetten("11:45", "18:15", "6:1/4")
End Sub
Sub Zet5x11_45_18_15() '6
Call vijfkeerzetten("11:45", "18:15", "6:1/4")
End Sub
Sub Zet12_45_21_15() '7
Call eenkeerzetten("12:45", "21:15", "7:3/4")
End Sub
Sub Zet5x12_45_21_15() '7
Call vijfkeerzetten("12:45", "21:15", "7:3/4")
End Sub
Sub Zet17_45_21_15() '8
Call eenkeerzetten("17:45", "21:15", "3:5/6")
End Sub
Sub Zet5x17_45_21_15() '8
Call vijfkeerzetten("17:45", "21:15", "3:5/6")
End Sub