Duplicaten maken

[reclamebaan]

Goedenavond,

Ik zit met een probleem. Ik heb een lijst met een stuk of 80 datums die ik graag wil verdubbelen. Alles moet er dus twee keer onder elkaar komen te staan.
Voorbeeldje:

12-12-2012
13-12-2012

wordt...
12-12-2012
12-12-2012
13-12-2012
13-12-2012

Is het mogelijk om dit op een makkelijke manier te doen, of zal ik toch moeten kopiëren en plakken?


Met vriendelijke groet en alvast bedankt

 

[Cobbe]

Draai deze macro en uw probleem is opgelost:

Sub tussenfoefelen()
    i = 1
    While i < Range("A65500").End(xlUp).Row + 1
        If Cells(i, 1) <> "" Then
            Cells(i + 1, 1).EntireRow.Insert
            Cells(i + 1, 1) = Cells(i, 1)
        End If
    i = i + 2
    Wend
End Sub

Als uw datums tenminste in kolom A staan!

 

[Niels28]

of met een formule , datums vanaf A1 formule in B1 en doorslepen naar beneden

=INDIRECT("A"&AFRONDEN.N.VEELVOUD(RIJ()/2;1))

Niels

 

[reclamebaan]

Allebei hartelijk bedankt, ik ga het morgen meteen in de praktijk brengen!