Lege velden opvullen met bovenstaande waarde

[KevinK]

Goede morgen,

Ik verbouw maandelijks een txt file naar excel. De file ziet er nu als volgt uit:

ZIE EXCEL IN BIJLAGE

De GELE velden zijn leeg en zouden opgevuld moeten worden met de
waarde van er boven.

01/01/2009 Mark
01/01/2009 Bert
01/01/2009 Jan
02/01/2009 Bob enz...

Kan iemand van jullie hier iets op bedenken .... File telt 12.000 lijnen dus hoe eenvoudiger, hoe beter ;-)


Ik dank jullie voor het mee-denk-werk !

Kevin

 

[danny147]

Beste KevinK

Zie bestandje, heb gebruik gemaakt van een hulpkolom.

Groetjes Danny. :thumb:

 

[Roncancio]

Via een macro zou het zo kunnen.

Sub GegevensToevoegen()
Dim lRij As Long
    lRij = 2
    While Range("B" & lRij) <> ""
        Range("A" & lRij + 1, Range("A" & lRij).End(xlDown).Offset(-1, 0)) = Range("A" & lRij).Value
        lRij = Range("A" & lRij).End(xlDown).Row
    Wend
    Range(Range("B65536").End(xlUp).Offset(1, 0).Row & ":65536").ClearContents
End Sub

Met vriendelijke groet,


Roncancio

 

[KevinK]

:thumb:

Werkt perfect ! Wederom bedank.