Veerj, als ff een snelle uitwerking op je queste van deze week, heb ik dit bedacht....
Sub JaartalLijsten()
Overzicht = ActiveSheet.Cells(1).CurrentRegion
ReDim OverzichtOutput(1 To UBound(Overzicht, 1), 1 To 1)
For i = 1 To UBound(Overzicht, 1)
For ii = 0 To UBound(Split(Overzicht(i, 1), ", "))
If InStr(1, Split(Overzicht(i, 1), ", ")(ii), "-") > 0 Then ' waarde bevat een minnetje
For iii = Split(Split(Overzicht(i, 1), ", ")(ii), "-")(0) To Split(Split(Overzicht(i, 1), ", ")(ii), "-")(1)
OverzichtOutput(i, 1) = OverzichtOutput(i, 1) & "," & iii
Next iii
Else
OverzichtOutput(i, 1) = OverzichtOutput(i, 1) & "," & Split(Overzicht(i, 1), ", ")(ii)
End If
Next ii
Next i
With ActiveSheet.Cells(1, 2).Resize(UBound(Overzicht, 1))
.Value = OverzichtOutput
.TextToColumns DataType:=xlDelimited, ConsecutiveDelimiter:=True, Comma:=True
.EntireColumn.Delete
End With
End Sub