Jede zweite Spalte des benutzten Bereichs löschen (VBA)

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.

 

MerkenMerken

Das könnte interessant sein Powered by AdWol Online Werbung

Letzte Spalte einer bestimmter Zeile — VBA Excel Tipps & Tricks

Mit diesem Code, kann man die letzte Spalte einer bestimmten Zeile ermitteln. Hier wäre es die 4 Z...

Letzte benutzte Spalte (Gesamt) — VBA Excel Tipps & Tricks

Mit diesem Code, bekommt man die letzte benutzte Spalte im Sheet, als Integer-Wert Public Sub letzt...

Letzte benutzte Zeile (Gesamt) — VBA Excel Tipps & Tricks

Mit diesem Code, lässt sich die letzte benutzte Zeile im Sheet als „Integer“ Wert ausgebe...

search previous next tag category expand menu location phone mail time cart zoom edit close