EXCEL , lege cellen DELETEN

[Verwijderd]

hoe kan je bv in een range (A1:A15) automatisch de nie ingevulde cellen laten deleten.

nu scan ik elke cel 1 voor 1 en als ze leeg is dan schuift de rest naar boven , maar da werkt erg traag .

is er een snellere manier

Ik gebruik da wel in de VBA van excel.

graag info

[Verwijderd]

niemand ?

[TromboneFreakus]

Het deleten is in ieder geval simpel, bijv. als volgt:

code:

With Range("A1:J1")
    .Delete
    
End With

Wat jij bedoelt kan volgens mij vervolgens eenvoudig bereikt worden met de volgende code

code:

For Each c In Range("A1:J1")
    If c.Value = "" Or c.Value = Null Then
        c.Delete
    End If
Next c

(uit de help van Excel VBA)

[Verwijderd]

Ik doe het altijd zo:

For i = 1 to 15
If Range("A" & i).value = "" then Range("A" & i).delete Shift:=xlUp
Next i

Het doet opzicht hetzelfde... :-)

[-SaveMe-]

Heel simpel:

Range("A1:A15").SpecialCells(xlCellTypeBlanks).Rows.Delete

[Verwijderd]

thanks da werkt prima