Sub VenA()
Dim j As Long, ar, d As Long, m As Long, y As Long
With Range("E3:G" & Cells(Rows.Count, 5).End(xlUp).Row)
ar = .Value
For j = 2 To UBound(ar)
If Trim(ar(j, 1)) <> "" Then
If Len(ar(j, 1)) = 4 Then ar(j, 1) = "01-01-" & ar(j, 1): ar(j, 3) = "!± "
If Len(ar(j, 2)) = 4 Then ar(j, 2) = "01-01-" & ar(j, 2): ar(j, 3) = "!± "
ar(j, 1) = CDate(Trim(ar(j, 1)))
ar(j, 2) = CDate(Trim(ar(j, 2)))
d = DateDiff("d", DateValue(ar(j, 2)), DateValue(ar(j, 1)))
m = DateDiff("m", DateValue(ar(j, 2)), DateValue(ar(j, 1)))
y = DateDiff("yyyy", DateValue(ar(j, 2)), DateValue(ar(j, 1)))
Select Case m
Case 0
ar(j, 3) = ar(j, 3) & d & " dag" & IIf(d > 1, "en", "")
Case Is < 13
ar(j, 3) = ar(j, 3) & m & " maand" & IIf(m > 1, "en", "")
Case Else
ar(j, 3) = ar(j, 3) & y & " jaar en " & m Mod 12 & " maand" & IIf(m Mod 12 > 1, "en", "")
End Select
End If
Next j
.NumberFormat = "General"
.Value = ar
End With
End Sub