Een cel automatisch kopieren tot er een gevulde cel is?

[Andre01]

Hallo,

Ik heb alweer een volgende vraag. namelijk:

Als ik op Cel A1 en Cel A5 een verschillende waarde heb ingevoerd. Dan wil ik dat hij automatisch de waarde van Cel A1 in Cel A2+A3+A4 kopieerd. Hij moet het eigenlijk kopieren tot hij een gevulde cel tegenkomt.

Dan moet hij weer verder gaan met de lege cellen onder de volgende gevulde cel te vullen met de informatie in de laatst gevulde cel.

Samenvatting:
Dus eigenlijk moet hij lege cellen in één kolom vullen met de waarde van de laatste gevulde cel daarboven.

Wie kan me deze keer helpen ?

P.s. het aantal lege cellen tussen de gevulde cellen is niet constant en sterk varieerend.

 

[Maglor]

Dit is mijn poging:

Sub kopieren()

Dim waarde As Single

While (Not IsEmpty(ActiveCell)) And ActiveCell.Interior.ColorIndex <> 6

waarde = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
While IsEmpty(ActiveCell)
ActiveCell.Value = waarde
ActiveCell.Offset(1, 0).Select
Wend

Wend

End Sub


Hiervoor moet je wel de laatste cel een gele opvulkleur geven. Zo heb ik aan Excel duidelijk gemaakt dat hij moet stoppen.

Er bestaat zeker een elegantere manier.

 

[Andre01]

Dank je wel.

het is opgelost