Kopieeren van waarden tabel

[lab4]

Ik wil het volgende doen: ik heb in een tabel de volgende situatie

record-waarde1--------waarde2-------etc

1---------aardappel------tomaat----------bla
2-----------------------------sla-------------------
3-----------------------------------------------------
4---------witte kool------olijven-----------enz.
5-----------------------------------------------------
6---------rodekool--------------------------------
7-----------------------------------------------------

Nou moet "aardappel" gekopieerd worden naar regel 2 & 3, Witte kool moet gekopieerd worden naar regel 5, Rode kool moet naar regel 7 geklopieerd worden. Kortom waarde moeten doorgekopieerd worden totdat er een nieuwe waarde tegen wordt gekomen.

 

[Wigi]

Hello

het kortste dat ik het krijg is zo:

Sub doorvoeren()
Dim c As Range, rngToDo As Range
Set rngToDo = Range("A1:A20").SpecialCells(xlCellTypeBlanks) 'verander de Range("A1:A20") in de range die jij wil doen

For Each c In rngToDo
    c = c.End(xlUp)
Next
End Sub

Je moet nog 1 ding veranderen en klaar is Kees.

Wigi

 

[huijb]

Zullen we deze maar sluiten, je mag hier verder gaan.