Excel VBA – Spalten ausblenden

Dieser Beitrag ist ein Teil der VBA Grundlagen Serie.

In diesem How-To zeige ich Ihnen, wie Sie jede zweite Spalte ausblenden können. Anschließend blende ich diese wieder ein.

111 VBA Makros die Ihr Leben leichter machen. Egal ob Sie Einsteiger oder fortgeschrittener Anwender sind – in diesem Buch finden Sie Lösungen für Ihre alltäglichen Aufgaben. Keine Vorkenntnisse notwendig.

Dazu setzen wir eine Schleife auf, die alle Spalten von links nach rechts alle Spalten abarbeitet.

Wechseln sie dazu mit ALT+F11 in die Entwicklungsumgebung und fügen Sie ein neues Modul ein.
Deklarieren Sie zunächst eine Variable vom Typ Integer. Danach legen Sie fest mit welcher Tabelle wir arbeiten.

Sub SpaltenAusblenden()
Dim Spalte As Integer

With Tabelle1

End With
End Sub

Im nächsten Schritt setzen wir eine Schleife auf, die von der ersten bis zu letzten Spalte durchläuft. Dazu zählen wir mit .UsedRange.Columns.Count die Zeilen im verwendeten Bereich. Unsere Schleife arbeitet in zweier Schritten, dass heißt nach der Spalte A wird die Spalte C angesprungen. Innerhalb der Schleife blenden wir die jeweilige Spalte über die Eigenschaft Hidden aus.

111 VBA Makros die Ihr Leben leichter machen

Wollen Sie Ihre langweiligen Routineaufgaben loswerden? Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen.

Hört sich gut an

Sub SpaltenAusblenden()
Dim Spalte As Integer

With Tabelle1
For Spalte = 1 To .UsedRange.Columns.Count Step 2

.Columns(Spalte).Hidden = True

Next Spalte
End With
End Sub

Führen Sie Ihr Makro nun über die Taste F5 aus und betrachten Sie das Ergebnis.

Um alle Zeilen wieder einzublenden benötigen Sie nur eine einzige Zeile.

Sub AlleSpaltenEinblenden()

Tabelle1.Columns.Hidden = False

End Sub

Wenn Sie das Auflistungsobjekt Columns ohne weitere Angaben aufrufen, so werden alle Spalten der jeweiligen Tabelle (hier Tabelle1) angesprochen.
Die Beispiel Excel Datei mit dem sofort einsetzbaren Makro und 111+ andere Makros, die Ihr Leben leichter machen, finden Sie hier.

Beeindrucke deinen Chef mit coolen Excel Tricks!

Lasse dich von deinen Kollegen nicht abhängen!
Spare Zeit und nutze diese für angenehmere Dinge
Steigere deine Produktivität und Effizienz
Es ist leicht - In meinem Newsletter gebe ich Schritt für Schritt Anleitungen die jeder versteht
Bei der Anmeldung zu meinem Newsletter erhälst du das Buch „Excel Tricks die deinen Chef beeindrucken“ als Willkommensgeschenk.

Quellen und weiterführende Literatur:
Bernd Held – VBA mit Excel: Das umfassende Handbuch

Falls Ihnen dieser Beitrag weitergeholfen hat, wäre es eine sehr nette Anerkennung meiner Arbeit wenn Sie z.B. Ihre Bücher über Amazon bestellen würden. Wenn Sie ein Produkt kaufen, erhalte ich dafür eine Provision. Für Sie ändert sich am Preis des Produktes gar nichts. Ich möchte mich an dieser Stelle jetzt schon für Ihre Unterstützung bedanken.