Jaartallen uitsplitsen middels formule adhv range

[Excellies]

Hallo,

Momenteel moet ik een flinke lijst jaartallen uit splitsen aan de hand van een range, bijv. van 2005 tot 2010.
Dit moet dan los komen zoals in de voorbeeld file te zien is. Ben er zelf al aan begonnen maar mocht iemand hier een mooie formule of macro voor hebben zou dit heel erg schelen.

Hoor graag of jullie mij kunnen helpen, alvast bedankt!


MVG,

Excellies

 

[JEC.]

Voor office 365

=REEKS(;H2+1-G2;G2)

 

[sylvester-ponte]

hallo lies, voor excel 365 is dit een oplossing:

=REEKS(1;H2-G2+1;G2;1)

is was al weer veel te laat

 

[Excellies]

Bedankt voor de snelle reactie, ik moet het helaas doen met office 2016.

 

[AlexCEL]

Deze voor I2?

=ALS(KOLOM()=9;$G2;ALS(H2="";"";ALS(H2+1<=$H2;H2+1;"")))

Zover doortrekken als gewenst naar rechts en onder.

 

[popipipo]

In I2

=G2

In J2

=IF(I2="";"";IF(I2+1>$H2;"";I2+1))

Deze verder door trekken naar rechts.
Evt vertalen naar het Nederlands

 

[JEC.]

Met een macrotje

Sub jec()
 Dim sq(), ar, i As Long, j As Long
 ar = Range("G2", Range("H" & Rows.Count).End(xlUp))
 ReDim sq(UBound(ar), 100)
 
 For i = 1 To UBound(ar)
   For j = ar(i, 1) To ar(i, 2)
     sq(i - 1, j - ar(i, 1)) = j
   Next
 Next
 
 Range("I2").Resize(i, 100) = sq
End Sub

 

[Excellies]

Haha stelletje excel helden! Allemaal super bedankt, die van popipipo wel geprobeerd maar dat gaf helaas niet het gewenste resultaat. Alexcel was wat mij betreft de winnaar van deze ronde samen met JEC.:thumb:

 

[popipipo]

gaf helaas niet het gewenste resultaat

Bij geeft hij toch echt hetzelfde resultaat als bij Axelcel

Ben benieuwd waarom het bij jou niet goed gaat.

 

[Excellies]

Excuus, je hebt helemaal gelijk! Lag aan de taal, hij staat hier in het Nederlands.
Thanks voor de moeite!

 

[popipipo]

Deze verder door trekken naar rechts.
Evt vertalen naar het Nederlands

 

[snb]

In I2

=IFERROR($G2+COLUMN(A1)-1/($H2>=(COLUMN(A1)+$G2-1));"")

 

[Excellies]

Thanks SNB!