***update***
Uiteraard ben ik zelf ook blijven zoeken en het heeft me eventjes wat denk-, puzzel- en vooral testwerk gekost en waarschijnlijk zal er een betere manier bestaan maar heb het zelf voorlopig als volgt opgelost :
Sub dataprint()
With Sheets("data")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
jaar = .Cells(i, 4) 'toegevoegd
jaar2 = .Cells(i - 1, 4) 'toegevoegd
If i = 2 Then jaar2 = jaar 'toegevoegd
datum = .Cells(i, 2) & "-" & .Cells(i, 3) & "-" & .Cells(i, 4)
dopeling = .Cells(i, 9) & " " & .Cells(i, 10)
If .Cells(i, 8) = "m" Then gslcht = "fs. "
If .Cells(i, 8) = "v" Then gslcht = "fa. "
ouders = gslcht & .Cells(i, 11) & " " & .Cells(i, 12) & " & " & .Cells(i, 13)
If .Cells(i, 11) = "onwettig" Then ouders = gslcht & .Cells(i, 12) & " " & .Cells(i, 13)
doopgetuigen = .Cells(i, 14) & " " & .Cells(i, 15) & " & " & .Cells(i, 16) & " " & .Cells(i, 17)
If jaar = jaar2 Then If j = 60 Then j = 0: jj = jj + 4 'aangepast
If jaar > jaar2 Then j = 0: jj = jj + 4 'toegevoegd
Sheets("DIG_G_PR").Cells(j + 6, jj + 2).Resize(4) = Application.Transpose(Array(datum, dopeling, ouders, doopgetuigen))
j = j + 6
Next
End With
With Sheets("DIG_G_PR") 'toegevoegd
For i = 1 To 100 Step 4 'toegevoegd
If .Cells(6, i + 1) <> "" Then 'toegevoegd
.Cells(3, i) = Right(.Cells(6, i + 1), 4) 'toegevoegd
End If 'toegevoegd
Next i 'toegevoegd
End With 'toegevoegd
End Sub
de lijntjes code die ik heb toegevoegd of aangepast heb ik voorzien van de commentaar 'toegevoegd' of 'aangepast'
groetjes,
Bieke