Lege Cellen verwijderen uit een kolom

[Peenvogel]

Goedemiddag.
Ik zou graag via een VBA routine lege cellen uit een bepaalde kolom willen verwijderen,
terwijl hij de andere kolommen ongemoeid laat.
Ik heb hier op het forum gezocht en op Google, maar in de daar aangedragen oplossingen werden heel vaak
ook de rijen, waar zo`n lege cel in stond ,verwijderd.
Als iemand een link weet waar datgene wordt uitgevoerd, wat ik graag wil hou ik me aanbevolen.
Het kan natuurlijk ook zo zijn, dat iemand van jullie zo`n routine even uit de mouw schudt .
Ik heb een klein voorbeeldbstandje erbijgedaan, maar de bedoeling lijkt me duidelijk.
Groetjes, Ron.
Ik werk met excel2003 nederlands.

 

[Cobbe]

Misschien moet je de bereiken nog aanpassen maar voor de rest ......

Sub cobbe()
LRow = ActiveSheet.UsedRange.Rows.Count
Lcol = ActiveSheet.UsedRange.Columns.Count
For i = LRow To 1 Step -1
 For y = Lcol To 1 Step -1
  If Cells(i, y) = 0 Then
    Cells(i, y).Delete Shift:=xlUp
  End If
 Next
Next
End Sub

 

[Peenvogel]

Bedankt Cobbe .
Ik begin al aardig wat macro-tjes te verzamelen met uw naam haha.
Ik begrijp uit uw code dat hij alle kolommen en rijen aanpakt.
Ik heb er de volgende code van gemaakt om bv kolom E op te schonen:

Sub cobbe()
LRow = ActiveSheet.UsedRange.Rows.Count
y = 5

    For i = LRow To 1 Step -1
        If Cells(i, y) = 0 Then
        Cells(i, y).Delete Shift:=xlUp
        End If

    Next i
End Sub

Groetjes, Ron.

 

[spaarie]

Zo kan het toch ook gewoon? Plus dat je een kolom kan aangeven..

Sub Spaarie()
    Sheets(1).Columns(3).SpecialCells(4).Delete
End Sub

 

[Peenvogel]

Hoi Spaarie, ik heb jouw code ook geprobeerd, maar als ik dan per ongeluk nog een keer die macro uitvoer, nadat ik de lege cellen heb verwijderd uit kolom C, gaat hij ineens uit andere kolommen ook lege cellen verwijderen.
Groetjes, Ron.

 

[VenA]

Wel even aan excel vertellen welke kant erop verwijderd moet worden.

Sub Spaarie()
    Sheets(1).Columns(3).SpecialCells(4).Delete Shift:=xlUp
End Sub

 

[Peenvogel]

Ah natuurlijk, V & A, daar had ik zelf ook op moeten komen, iedereen in ieder geval bedankt voor het meedenken .
Groetjes, Ron.