Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Tabellenblätter einblenden per VBA

Forumthread: Alle Tabellenblätter einblenden per VBA

Alle Tabellenblätter einblenden per VBA
09.03.2004 09:14:03
Wilfried
Guten Morgen
Ich habe folgendes Problem:
Ich möchte alle ausgeblendeten Tabellenblätter in einer Arbeitsmappe per Makro einblenden.
Vielleicht hat jemand dazu eine Idee. Ich freue mich jedenfalls über einen Tip.

Gruß
Wilfried
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Tabellenblätter einblenden per VBA
09.03.2004 09:18:28
Hajo_Zi
Hallo Wilfried
Application.ScreenUpdating = False
For InI = Sheets.Count To 1 Step -1
Sheets(InI).Visible = True
Next InI
Application.ScreenUpdating = True
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
AW: es funktioniert!!! - Danke -
09.03.2004 10:39:57
Wilfried
Hallo Hajo
Vielen Dank für die schnelle und perfekte Lösung.
Du hast mir in der Vergangenheit schon so manches mal geholfen.
An dieser Stelle auch dafür nochmal Danke.
Gruß
Wilfried
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alle Tabellenblätter in Excel einblenden mit VBA


Schritt-für-Schritt-Anleitung

Um alle ausgeblendeten Tabellenblätter in einer Excel-Arbeitsmappe per Makro einblenden zu können, folge diesen Schritten:

  1. Öffne Excel und die Ziel-Arbeitsmappe.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Kopiere und füge den folgenden VBA-Code in das Modul ein:

    Sub AlleTabellenblaetterEinblenden()
       Application.ScreenUpdating = False
       For InI = Sheets.Count To 1 Step -1
           Sheets(InI).Visible = True
       Next InI
       Application.ScreenUpdating = True
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, indem du ALT + F8 drückst, das Makro AlleTabellenblaetterEinblenden auswählst und auf Ausführen klickst.

Jetzt werden alle Tabellenblätter in deiner Excel-Arbeitsmappe eingeblendet.


Häufige Fehler und Lösungen

  • Fehler: Das Makro läuft nicht.

    • Lösung: Stelle sicher, dass du den Code korrekt kopiert hast und dass keine anderen Makros oder Add-Ins im Hintergrund laufen.
  • Fehler: Einige Blätter bleiben weiterhin ausgeblendet.

    • Lösung: Überprüfe, ob die Blätter möglicherweise mit einem Passwort geschützt sind. In diesem Fall musst du das Passwort zuerst entfernen.

Alternative Methoden

Falls du VBA nicht verwenden möchtest, kannst du auch manuell alle Tabellenblätter einblenden:

  1. Rechtsklicke auf einen beliebigen Tab (Tabellenblatt).
  2. Wähle Einblenden….
  3. Wähle das Blatt aus, das du einblenden möchtest, und klicke auf OK.

Diese Methode ist jedoch zeitaufwendig, wenn viele Blätter ausgeblendet sind.


Praktische Beispiele

Wenn du häufig mit ausgeblendeten Tabellenblättern arbeitest und diese per Makro einblenden möchtest, kannst du das Makro auch anpassen. Zum Beispiel, um nur bestimmte Blätter einzublenden:

Sub BestimmteTabellenblaetterEinblenden()
    Application.ScreenUpdating = False
    Sheets("Tabelle1").Visible = True
    Sheets("Tabelle2").Visible = True
    Application.ScreenUpdating = True
End Sub

Mit diesem angepassten Makro kannst du gezielt nur die benötigten Blätter einblenden.


Tipps für Profis

  • Verwende On Error Resume Next: Dies kann helfen, Fehler während der Ausführung des Makros zu ignorieren, vor allem wenn ein Blatt möglicherweise nicht existiert.

  • Füge eine Benutzeroberfläche hinzu: Du kannst ein Formular erstellen, um die Auswahl der Blätter zu erleichtern, die du einblenden möchtest.

  • Dokumentiere deine Makros: Schreibe Kommentare in deinen Code, um zu erklären, was jeder Teil macht, damit du und andere ihn später leichter verstehen können.


FAQ: Häufige Fragen

1. Kann ich das Makro auch für andere Excel-Versionen nutzen? Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, jedoch kann es Unterschiede in der Benutzeroberfläche geben.

2. Was kann ich tun, wenn das Makro nicht funktioniert? Überprüfe, ob deine Excel-Anwendung Makros zulässt. Manchmal musst du die Sicherheitseinstellungen anpassen, um Makros auszuführen.

3. Gibt es eine Möglichkeit, nur ausgeblendete Blätter einzublenden? Ja, du kannst den VBA-Code anpassen, um nur Blätter einzublenden, die derzeit den Status xlSheetHidden haben.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige