Hey veerj,
Hartelijk dank voor je respons en de info.
Alweer, door mijn beperkte kennis heb ik zelf nog nooit met arrays gewerkt...
Hoe zou ik dit voor volgende (geneste) For... Next... loop dan best kunnen aanpakken?
Sub verwerk()
With Sheets("data")
gezinnen = .Cells(Rows.Count, 1).End(xlUp).Row
For s = 4 To gezinnen
If (Sheets("verwerk").Cells(4, 2) = .Cells(s, 1) And Sheets("verwerk").Cells(3, 2) = .Cells(s, 2)) Or (Sheets("verwerk").Cells(5, 2) = .Cells(s, 1) And .Cells(s, 2) = "") Then
rang = .Cells(s, 3)
kgdag = .Cells(s, 6)
kgmnd = .Cells(s, 7)
kgjaar = .Cells(s, 8)
With Sheets("verwerk")
For rij = 1 To 15
If rij = rang Then
'ipv weg te schrijven zou dit resultaat dus tijdelijk opgeslagen moeten worden
.Cells(rij, 10) = kgmnd + (kgjaar * 12)
End If
Next rij
End With
End If
Next s
End With
End Sub
Alvast dank op voorhand,
groetjes,
BlackDevil