Sub WeekLijnTrekken()
' Daar jaar 2015 een schikkeljaar is zijn er 53 weken.
' Dus de laatste rodelijn ligt tussen 52 en 53
' Dus de week 53 telt mee als 1 ste week voor het eerste blok van het volgende jaar 2016
' Hier door hebben we maar 3 weken over in januari 2016
' declaratie van de tellers
'De tellers initialiseren
Dim RodelijnTeller As Integer
jaar = [h3]
If jaar > 2015 And jaar <= 2020 Then
StartTeller = 3
RodelijnTeller = StartTeller
ElseIf jaar > 2020 Then
StartTeller = 2
RodelijnTeller = StartTeller
End If
'Van de maand Januari tot juni
'Voor elke ElkeCel in het berijk i7 tot i47 na gaan wat de ElkeCelwaarde is
For Each elkecel In Range("I7:I47")
If elkecel = RodelijnTeller And elkecel.Offset(1) <> RodelijnTeller And elkecel.Offset(1) <> "" Then
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
RodelijnTeller = RodelijnTeller + 4 '
Else
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
End If
Next
'Van de maand juni tot december
For Each elkecel In Range("R7:R47")
Select Case jaar
Case Is <= 2020
'If jaar <= 2020 Then
t = Range(Cells(elkecel, 11), Cells(elkecel, 17)).cou
If elkecel = RodelijnTeller And elkecel.Offset(1) <> RodelijnTeller And elkecel.Offset(1) <> "" Then
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
' VorigeTeller = RodelijnTeller
RodelijnTeller = RodelijnTeller + 4
' ElseIf elkecel = RodelijnTeller And elkecel.Offset(1) <> RodelijnTeller And elkecel.Offset(1) = "" And elkecel.Offset(1) <> RodelijnTeller Then
' elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
' elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
' VorigeTeller = RodelijnTeller
' RodelijnTeller = RodelijnTeller + 4
Else
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
End If
'End If
Case Is > 2020
'If jaar > 2020 Then
If elkecel = RodelijnTeller And elkecel.Offset(1) <> RodelijnTeller And elkecel.Offset(1) = "" Then
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
RodelijnTeller = RodelijnTeller + 4
elkecel = elkecel + 1
Else
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
elkecel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
End If
'End If
End Select
Next
End Sub
Sub TestLeapYear()
If (Year(Date) Mod 4) Then
MsgBox "Not a Leap Year!"
Else
MsgBox "Leap Year!"
End If
Dim booIsLeapYear As Boolean
Dim dt As Date: dt =
booIsLeapYear = ((Year(dt) Mod 4 = 0) And (Year(dt) Mod 100 <> 0)) Or (Year(dt) Mod 400 = 0)
End Sub
Public Function IsLeapYear(ByVal YY As Long) As Boolean
IsLeapYear = Day(DateSerial(YY, 3, 0)) = 29
End Function
bij t = Range(Cells(elkecel, 11), Cells(elkecel, 17)).cou