Alle Tabellenblätter ausblenden

Forumthread: Alle Tabellenblätter ausblenden

10.05.2004 22:16:26

Patrick

Hi Folks,
ich habe eine Datei mir x Tabellenblättern. Jetzt möchte ich über einen Schalter alle Tabellenblätter bis auf das aktuelle ausblenden. Und über einen anderen Schalter alle Tabellenblätter und alle Diagramme einblenden lassen.
Kann mir da bitte jemand helfen.
Danke
Gruß
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Tabellenblätter ausblenden

Ramses

Hallo
das geht nicht.
Es muss mindestens ein Tabellenblatt sichtbar sein
Gruss Rainer

AW: Alle Tabellenblätter ausblenden

10.05.2004 22:54:07

Matthias

Hallo Patrick,


Sub Ausblenden()
Dim ws As Worksheet
For Each ws In Sheets
If ws.Index <> ActiveSheet.Index Then
ws.Visible = False
End If
Next ws
End Sub


Sub Einblenden()
Dim ws As Worksheet
For Each ws In Sheets
ws.Visible = True
Next ws
End Sub

Das mit den Diagrammen weiß ich nicht.
Gruß Matthias

Wer lesen kann... ;-)

Ramses

Hallo Mathias
... ist klar im Vorteil.
Ich habe nur "...alle Ausblenden..." gelesen :-(
Gruss Rainer

AW: Alle Tabellenblätter ausblenden

Kurt


Sub Ausblenden()
Dim ws As Object
For Each ws In Sheets
If ws.Index <> ActiveSheet.Index Then ws.Visible = False
Next
End Sub


Sub Einblenden()
Dim ws As Object
For Each ws In Sheets
ws.Visible = True
Next ws
End Sub

Kurt

Infobox / Tutorial

Alle Tabellenblätter in Excel ausblenden und einblenden

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel alle Tabellenblätter bis auf das aktive auszublenden, kannst du die folgenden Schritte befolgen:

Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul:
- Klicke mit der rechten Maustaste auf VBAProject (dein Arbeitsbuch), wähle Einfügen und dann Modul.

Füge den Code zum Ausblenden ein:

Kopiere den folgenden Code in das Modul:

Sub Ausblenden()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       If ws.Index <> ActiveSheet.Index Then
           ws.Visible = False
       End If
   Next ws
End Sub

Füge den Code zum Einblenden ein:

Kopiere den folgenden Code in das gleiche Modul:

Sub Einblenden()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       ws.Visible = True
   Next ws
End Sub

Schließe den VBA-Editor:
- Drücke ALT + Q, um den VBA-Editor zu schließen.
Führe die Makros aus:
- Du kannst die Makros über Entwicklertools > Makros ausführen.

Häufige Fehler und Lösungen

Fehler: „Es muss mindestens ein Tabellenblatt sichtbar sein“
- Dieser Fehler tritt auf, wenn du versuchst, alle Tabellenblätter auszublenden. Stelle sicher, dass mindestens ein Blatt sichtbar bleibt, in diesem Fall das aktive.
Lösung: Überprüfe den Code
- Stelle sicher, dass der Code korrekt ist und dass du das aktive Blatt nicht ausblendest. Der bereitgestellte Code sorgt dafür, dass das aktive Blatt immer sichtbar bleibt.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch manuell die Sichtbarkeit der Tabellenblätter ändern:

Rechtsklick auf das Tabellenblatt:
- Klicke mit der rechten Maustaste auf das Tabellenblatt, das du ausblenden möchtest.
Ausblenden wählen:
- Wähle im Kontextmenü die Option „Ausblenden“.
Einblenden:
- Um ein ausgeblendetes Blatt wieder sichtbar zu machen, klicke mit der rechten Maustaste auf ein beliebiges sichtbares Blatt und wähle „Einblenden“.

Praktische Beispiele

Hier sind zwei Beispiele für die Verwendung der Makros:

Alle Tabellenblätter außer dem aktiven ausblenden:
- Du hast ein Arbeitsbuch mit mehreren Blättern und möchtest nur das aktuelle Arbeitsblatt sichtbar lassen.
Alle Tabellenblätter wieder einblenden:
- Nachdem du einige Blätter ausgeblendet hast, möchtest du alle wieder sichtbar machen, um einen Überblick zu bekommen.

Verwende die bereitgestellten VBA-Skripte, um diese Aufgaben schnell zu erledigen.

Tipps für Profis

Tastenkombinationen: Du kannst die Makros auch mit einer Tastenkombination verknüpfen, um den Prozess zu beschleunigen.
Benutzerdefinierte Schaltflächen: Füge Schaltflächen in deine Excel-Oberfläche ein, um die Makros direkt ausführen zu können.
Sicherheitsüberprüfung: Stelle sicher, dass deine Excel-Einstellungen das Ausführen von Makros erlauben.

FAQ: Häufige Fragen

1. Kann ich die Sichtbarkeit von Diagrammen ebenfalls steuern? Ja, du kannst ähnliche VBA-Skripte verwenden, um die Sichtbarkeit von Diagrammen zu steuern, indem du die Diagrammobjekte in deinem Code ansprichst.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, die bereitgestellten VBA-Skripte sind mit den meisten modernen Excel-Versionen kompatibel, solange du die Entwicklertools aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Forumthread: Alle Tabellenblätter ausblenden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Alle Tabellenblätter in Excel ausblenden und einblenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Alle Tabellenblätter ausblenden

Forumthread: Alle Tabellenblätter ausblenden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Alle Tabellenblätter in Excel ausblenden und einblenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread