Excel VBA – Tabellen über eine Schleife ausblenden

Excel VBA – Tabellen über eine Schleife ausblenden
5 Sterne
3 Bewertungen

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.
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

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.
20 Excel Tricks

Jetzt anfordern!

* Pflichtfeld
 
Kein SPAM. 100% sicher.

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.

Denis Reis ist Business Intelligence Consultant bei Dahlbeer und gibt als Buchautor sein Wissen rund um den SAP Projektalltag weiter. Des Weiteren unterrichtet er Projektmanagement und Controlling an der Wiesbaden Business School. Der aus Düsseldorf stammende Familienmensch zählt zu denjenigen, die auf komplizierte Darstellungen verzichten und das Ganze auf den Punkt bringen.

0 Kommentare

Dein Kommentar

Want to join the discussion?
Feel free to contribute!

Kommentar verfassen