Lege kolommen verwijderen

[wieter]

L.s.
Onderstaande code zou alle lege kolommen, in één keer moeten verwijderen, (niet verbergen).
De formules in de derde regel kijken of een kolom leeg is.
Waarde "0" ergens op de 3de regel = hele kolom verwijderen.
De code doet wat ze moet doen, maar niet in één keer, er moet meermaals op de knop gedrukt worden.
Wat is er fout aan de code?

Private Sub CommandButton1_Click()
With Sheets(1)
        For j = 1 To 30
            If .Cells(3, j) = 0 Then .Cells(3, j).EntireColumn.Delete
        Next
End With
End Sub

Bekijk bijlage 192791

 

[rebmog]

Bij het verwijderen moet je van hoog naar laag werken, omdat tijdens het verwijderen telkens de kolomnummering wordt aangepast. Dus:

Private Sub CommandButton1_Click()
With Sheets(1)
        For j = 30 To 1 Step -1
            If .Cells(3, j) = 0 Then .Cells(3, j).EntireColumn.Delete
        Next
End With
End Sub

 

[wieter]

Bedankt Rebmog,
Achteraf zie je altijd de logica in, maar het zelf vinden, hola!!