Lege cellen in lijst verwijderen

[Marco999]

Hallo,

Heeft iemand een ideetje hoe ik het volgende kan oplossen?
Ik heb een kolom met namen met daar tussenin lege cellen (Kolom A).
Kan ik met een formule de lege cellen "verwijderen" en een aaneensluitende lijst krijgen als in kolom B?
Bekijk bijlage Lege cellen.xls

 

[Thankyou]

Met een Matrixformule:

=ALS(AANTALARG($A$2:$A$13)>=RIJ()-1;INDEX($A$2:$A$13;KLEINSTE(ALS($A$2:$A$13<>"";RIJ($A$2:$A$13)-1);RIJ()-1));"")

voor in B2 en doortrekken naar beneden.

Succes,

P.S.
Matrixformule, afsluiten met CTRL+SHIFT+ENTER i.p.v. enter

 

[HSV]

Selecteer het gebied, druk sneltoets F5 → Speciaal → Legewaarden → Ok.
(Ctrl+ -) → cellen naar boven verplaatsen → OK.

 

[danny147]

Beste Marco999

Of met een code:

Sub verwijderen()
For Each c In Range("A2:A20")
If c = "" Then
c.Rows.EntireRow.Delete
End If
Next
End Sub

Druk op ALT+F8 en klik op uitvoeren.

Groetjes Danny. :thumb:

 

[Marco999]

Jaaa, het was even rommelen, maar ik ben er uit gekomen met de matrixformule!
Hartelijk dank ! :thumb:

 

[danny147]

Beste Marco999

Het verbaasd me dat ge niet voor de macro kiest, Marco999

Groetjes Danny. :thumb: