Jede zweite Spalte löschen (VBA)


Jede zweite Spalte löschen (VBA)

Jede zweite Spalte mit VBA löschen

Mit dem folgenden VBA-Code können sie jede zweite Spalte des aktiven Tabellenblattes löschen. Es wird hierbei nur der benutzte Bereich des Tabellenblattes durchlaufen.

Sub Jede_zweite_Spalte_loeschen()

    Dim Spalte As Integer

    For Spalte = 1 To ActiveSheet.UsedRange.Columns.Count Step 1

        Columns(Spalte).EntireColumn.Delete

    Next

End Sub