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
Weiterführende Links:
Kennen Sie weiterführende Links zu diesem Thema? Schreiben Sie doch Ihre Linkempfehlung als Kommentar unten zu dieser Seite. Ich freue mich auf Ihr Feedback.