Kolommen verwijderen

[BenVan]

Met welk scripte in VB kan je het best kolommen verwijderen.
Ik heb een sheet waarin er ik een aantal kolommen moet verwijderen. De sheet bestaat uit een honderd tal rijen en volgens een formule worden de rijen en kolommen ingevuld. Maar sommige kolommen worden niet ingevuld door deze formules.
Nu zou ik graag een knopje hebben en wanneer ik op die knop druk moet hij alle kolommen die leeg zijn verwijderen of disablen.

iemand?

dankje

 

[Wigi]

Dit kijkt naar de lege cellen uit rij 1 en verwijdert vervolgens de hele kolom. Een lus is niet nodig hier, gebruik SpecialCells.

Sub verwijderen()
    On Error Resume Next
    Rows(1).Cells.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    On Error GoTo 0
End Sub

Wigi

 

[BenVan]

Wigi

Het is een beetje complexer. Het start vanaf kolom D vervolgens F, H, J (dus telkens + 2)
Hieronder heb ik zelf iets gedaan. Hoe moet ik karakters optullen.
Want bijvoorbeeld Range moet hij zo zien (Kolom & 300) = (D300)
Maar zit blok met die karakters.
Het is ook geen lege cel maar een "0".
...

Dim Kolom As Characters
Dim i As Integer
Dim leeg As Boolean
Kolom = "D" 'tot Z

For i = Kolom To 29 Step 2
leeg = True
For l = Range(Kolom & 300).End(xlUp).Row To 1 Step -1
If Range(Kolom & l) <> "0" Then
leeg = False
End If
Next
If leeg = True Then
Worksheets("Rapport_2006").Columns(Kolom).Hidden = True
End If
Next

 

[Wigi]

Zo?

Dim Kolom As Integer
    Dim i As Integer
    Dim leeg As Boolean
    Kolom = 4 '"D"    'tot Z

    For i = Kolom To 26 Step 2
        leeg = True
        For l = Cells(300, i).End(xlUp).Row To 1 Step -1
            If Cells(l, Kolom) <> 0 Then leeg = False
        Next
        Worksheets("Rapport_2006").Columns(Kolom).Hidden = leeg
    Next

Wigi