Excel VBA – Tabellen über eine Schleife ausblenden

Dieser Beitrag ist ein Teil der VBA Grundlagen Serie.

In diesem Artikel zeige ich wie Sie alle Tabellen außer Tabelle1 ausblenden können. Dazu verwenden wir eine Schleife die prüft ob der Name der jeweiligen Tabelle „Tabelle1“ ist oder nicht.

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.

Fangen wir mit der Typdeklaration an. Deklarieren Sie zunächst eine Variable vom Typ Integer.

Sub TabellenAusblenden()
Dim intTabelle As Integer

End Sub

Nun schreiben wir eine Schleife die bei der ersten Tabelle anfängt und alle Tabellen in der aktiven Mappe durchgeht. Mit ActiveWorkbook.Worksheets.Count wird die letzte Tabelle bestimmt.

For intTabelle = 1 To ActiveWorkbook.Worksheets.Count

Next intTabelle

Innerhalb der Schleife prüfen wir ob der Name der jeweiligen Tabelle „Tabelle1“ ist oder nicht. Wenn der Name der jeweiligen Tabelle nicht „Tabelle1“ lautet wird diese über die Eigenschaft (bzw. Attribut) Visible ausgeblendet.

If ActiveWorkbook.Worksheets(intTabelle).Name <> "Tabelle1" Then
ActiveWorkbook.Worksheets(intTabelle).Visible = False
End If

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

Wenn Sie das Makro nun ausführen, sehen Sie das nur noch die Tabelle1 sichtbar ist.

Sub TabellenAusblenden()
Dim intTabelle As Integer

For intTabelle = 1 To ActiveWorkbook.Worksheets.Count

If ActiveWorkbook.Worksheets(intTabelle).Name <> "Tabelle1" Then
ActiveWorkbook.Worksheets(intTabelle).Visible = False
End If

Next intTabelle
End Sub

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.