Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Für Blatt Einblenden resp. Ausblenden

Forumthread: Makro Für Blatt Einblenden resp. Ausblenden

Makro Für Blatt Einblenden resp. Ausblenden
18.05.2004 08:44:38
Joerg
Guten Tag,
Ich möchte durch eine Wenn-Abfrage in einer Zelle Ein Blatt Ein- resp. Ausblenden.
Wechselt der Wert in der Zelle von 0 auf einen Wert <>0 soll das Blatt eingeblended werden.
Wechselt der Wert zurück auf 0, soll das Blatt ausgeblendet werden.
Kann mit jemenad helfen?
Besten Dank im Voraus
Joerg
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Für Blatt Einblenden resp. Ausblenden
18.05.2004 08:53:52
Oberschlumpf
Hi Joerg
Versuch es mal so:

Sub EinAus()
If Var = 0 then
Workbook("DeineExcelTabelle").Sheets("DeinTabblatt").Visible = False
Else
Workbook("DeineExcelTabelle").Sheets("DeinTabblatt").Visible = True
End If
End Sub

Für "DeineExcelTabelle" musst Du den Namen der Exceltabelle oder als Zahl den Index der Excel-Tabelle eintragen, die gemeint ist.
Für "DeinTabblatt" musst Du den Namen oder als Zahl den Index des Tabelleblattes eintragen, welches ein- bzw. ausgeblendet werden soll.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Makro Für Blatt Einblenden resp. Ausblenden
18.05.2004 16:12:57
Joerg
Liber Thorsten,
Recht herzlichen Dank für deinen Vorschlag.
leider komme ich damit noch nicht zurecht.
Mir scheint dass ich im Tabellenblatt eine Abfrage definieren muss.
Diese Abfrage sollte dann die Prozedur aufrufen, oder?
Liebe Grüsse
Jörg
AW: Makro Für Blatt Einblenden resp. Ausblenden
18.05.2004 17:22:47
Oberschlumpf
Hi Jörg
Verrate doch mal bitte, um welche Zelle in welchem Tabellenblatt es sich handelt.
Und Du weißt auch, dass Du diese Zelle von einem anderen Tabellenblatt mit Werten <> 0 füllen musst, wenn das Tabellenblatt, und dann eben die Zelle, um die es geht, ausgeblendet ist.
Ciao
Thorsten
Anzeige
AW: Makro Für Blatt Einblenden resp. Ausblenden
20.05.2004 10:43:34
Joerg
Hallo Thorsten,
Recht herzlichen Dank fürr dein Interesse.
Habe den wesentlichen Teil meines Arbeitblattes auf den Server geladen.
Celle C11 soll Blatt 00 einblenden oder ausblenden.
Celle C12 Blatt 01
Mit freundlichem Gruss
Jörg
AW: Makro Für Blatt Einblenden resp. Ausblenden
20.05.2004 13:56:09
Martin Beck
Hallo Jörg,
in C11 und C12 stehen doch gar keine Wenn-Formeln. Welche Wenn-Formeln willst Du denn einsetzen? Evtl. könnte man das Worksheet_Calculate-Ereignis nutzen.
Gruß
Martin Beck
Anzeige
AW: Makro Für Blatt Einblenden resp. Ausblenden
20.05.2004 20:09:47
Joerg
Hallo Thorsten,
eben diese Formeln suche ich noch. Was du mir zuerst empfohlen hast funktioniert nicht.
Gruss
Jörg
AW: Makro Für Blatt Einblenden resp. Ausblenden
20.05.2004 21:19:15
Oberschlumpf
Hallo Joerg
Zuerst:
Bitte lies bei den Antworten AUCH die Namen der Ersteller dieser Antworten.
Denn...
...der Hinweis, dass in C11 und C12 noch gar keine Wenn-Formel steht, kommt NICHT von THORSTEN sondern von MARTIN.
nur mal so anmerk...
Zu Deiner Frage:
Lad diese Datei runter.
https://www.herber.de/bbs/user/6570.xls
Der Code steht an der richtigen Stelle und funktioniert nun auch :)
Sobald in C11 0 eingetragen wurde, wird das Blatt 00 ausgeblendet.
Ist der Wert größer als 0, wird das Blatt 00 wieder eingeblendet.
Gleiches geschieht in Zelle C12 mit Blatt 01.
Wenn Du aber tatsächlich möchtest, dass eines der Blätter NUR wieder eingeblendet werden soll, wenn der jeweilige Wert 1 aber NICHT größer als 1 ist, dann musst Du den vollständigen Code durch diesen ersetzen:
If Target.Address = "$C$11" Then
If Target.Value = 0 Then
Sheets("00").Visible = False
End If
End If
If Target.Address = "$C$11" Then
If Target.Value = 1 Then
Sheets("00").Visible = True
End If
End If
If Target.Address = "$C$12" Then
If Target.Value = 0 Then
Sheets("01").Visible = False
End If
End If
If Target.Address = "$C$12" Then
If Target.Value = 1 Then
Sheets("01").Visible = True
End If
End If
Na, welche Version ist die Richtige? :-)
Ciao
Thorsten
Anzeige
AW: Makro Für Blatt Einblenden resp. Ausblenden
21.05.2004 15:34:24
Joerg
Lieber Thorsten,
Ich bitte um Entschuldigung wegen der Verwechslung. Ich war in Eile.
Vorest mal recht herzlichen Dank für die Hilfe.
Ich muss es noch ausprobieren und genau anschauen.
Mit freundlichem Gruss
Jörg
AW: Makro Für Blatt Einblenden resp. Ausblenden
20.05.2004 10:49:35
Joerg
Hier ist die Datei.

Die Datei https://www.herber.de/bbs/user/6558.xls wurde aus Datenschutzgründen gelöscht

Gruss
Jörg
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Nur 3-stellige Tabellenblätter anzeigen
Julian

Hallo Community,
ich verzweifle gerade an dem Inhalt einer in einer UserForm befindlichen ComboBox.
Zurzeit werden mir in dieser ComboBox alle Tabellenblätter angezeigt. Ich möchte jedoch nur die angezeigt bekommen, die dreistellig sind.
Hier mein bisheriger Code: Private Sub Comma...
15.12.2015 16:36:22
Thread-ID: 1464519
5 Beiträge
VBA - Nur 3-stellige Tabellenblätter anzeigen
Julian

Hallo Community,
ich verzweifle gerade an dem Inhalt einer in einer UserForm befindlichen ComboBox.
Zurzeit werden mir in dieser ComboBox alle Tabellenblätter angezeigt. Ich möchte jedoch nur die angezeigt bekommen, die dreistellig sind.
Hier mein bisheriger Code: Private Sub Comma...
15.12.2015 17:06:12
Thread-ID: 1464524
3 Beiträge
Anzeige
VBA Zeilen und Tabellenblätter ein- und ausblenden
Frank

Hallo zusammen,
ich habe folgende VBA-Codes, die beide einzeln funktionieren. Nun möchte ich, dass beide zusammen funktionieren. Könnt ihr mir da bitte helfen?
Wenn auf dem Tabellenblatt "Start" in Zelle "J15" eine 3 ausgegeben wird, dann soll das Tabellenblatt "Erfolgskontrolle" eingeb...
19.11.2018 08:03:33
Thread-ID: 1658107
7 Beiträge
Anzeige
VBA Blatt einblenden bei bestimmten Zellenwerten
Tobias

Hallo liebes Forum,
Ich stehe erneut vor einem Problem und hoffe auf eure Lösung dabei :)
Leider kann ich meine Datei nicht hochladen, da diese extrem komplex ist und mit noch 2 anderen Dateien verknüpft ist etc.. Daher versuch ich mal zu erklären was ich brauche.
Also ich habe in...
18.01.2019 11:52:24
Thread-ID: 1669138
2 Beiträge
ausgeblendete Zellen wieder einblenden
Arne

Kann mir jemand sagen, wie ich ausgeblendet Zeilen oder auch Spalten wieder einblenden kann? Ich möchte einige Dinge darin verändern und komme einfach nicht an die Daten ran.MfG, ARNE SIEKMANN

27.02.2003 12:43:08
Thread-ID: 225021
4 Beiträge
Anzeige
VBA - Ausgeblendetes Blatt beim Einblenden löschen
Fritz
Hallo VBA-Experten,
noch eine Bitte an euch:
Ist es per VBA möglich, dass ein ausgeblendetes Tabellenblatt beim Einblenden sofort gelöscht wird?
Danke für eure Hilfen!
Mfg
Fritz
03.03.2004 16:52:00
Thread-ID: 392047
3 Beiträge
Ausgeblendete Zellen wieder einblenden
Cruiser
Hallo,
ich hab da ein Problem und ich bin mir sicher, dass ihr mir da weiter helfen könnt.
Wenn ich in Excel Zeile oder Spalten ausblende klappt das Problemlos. Allerdings weiß ich nicht genau wie man sie wieder hervor holt.
Jetzt habe ich eine Datei bekommen bei der an der Seite ein + war...
22.12.2004 17:33:59
Thread-ID: 537088
5 Beiträge
Ausgeblendete Blätter wieder einblenden
Hauke

Wenn ich in einer Excel-Datei mehrere Blätter ausblende, muss ich immer jedes einzelne Blatt wieder einzeln einblenden. Gibt es einen Trick, wie man alle ausgeblendeten Blätter auf einmal wieder einblenden kann?
08.01.2007 15:08:17
Thread-ID: 834929
2 Beiträge
Anzeige
VBA Tabellenblätter ein/ausblenden
Michael

Hi zusammen,
ich steh gerade irgendwie auf dem Schlauch.
Ich habe eine Datei mit recht vielen Tabellenblättern, die ich per Makro ein- und ausblenden will. Dazu hab ich eine Tabelle (AQ41:AR59). In AQ stehen jeweils die Namen der Tabellenblätter. In AR steht "ja" oder "nein".
Ich...
11.12.2020 13:03:37
Thread-ID: 1799133
4 Beiträge
VBA Blätter ein- ausblenden
Dirk

Hallo Forum,
ich möchte eine Datei öffnen und dann nur das Blatt "Navigator" sehen. In diesem Blatt sind Links zu den anderen Blättern. Ich möchte einen Link anklicken und das entsprechende Blatt soll erscheinen. Das Navigatorblatt soll eingeblendet bleiben. Wenn ich nun das Navigatorblatt...
08.02.2021 11:03:22
Thread-ID: 1811558
2 Beiträge
VBA Tabellenblätter ein- und ausblenden
Lothar

Hallo an Alle,
ich habe eine Exceldatei mit mehr 100 Blättern.Zur Übersichtlichkeit möchte ich alle Blätter, bis auf das Blatt "Tab_Liste", aus- und bei Bedarf wieder einblenden. Das Einblenden klappt mit den Code's aus dem Netz, aber das Einblenden nicht.
Vielleicht hat ja jemand eine...
22.02.2021 18:09:34
Thread-ID: 1815230
6 Beiträge
VBA Zeilen und Tabellenblatt einblenden
TheAccountant
Hallo Zusammen,
ich habe folgende Problematik zu der ich bisher keine passende Lösung finden konnte (VBA Neuling).
1. Problematik
Ich habe in meiner Excel-Datei eine Cover Page.
In diesem Tabellenblatt kann in der Zelle C5 die Anzahl der Gesellschaften eingegeben werden.
Daru...
23.03.2021 16:31:10
Thread-ID: 1822093
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Makro für das Ein- und Ausblenden von Tabellenblättern in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor:

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

  2. Füge ein neues Modul hinzu:

    • Klicke im Projektfenster mit der rechten Maustaste auf deine Arbeitsmappe und wähle Einfügen > Modul.

  3. Gib den Code ein:

    • Füge den folgenden VBA-Code in das Modul ein, um ein Tabellenblatt basierend auf dem Wert in einer Zelle ein- oder auszublenden:
    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$C$11" Then
       If Target.Value = 0 Then
           Sheets("00").Visible = False
       ElseIf Target.Value = 1 Then
           Sheets("00").Visible = True
       End If
   End If

   If Target.Address = "$C$12" Then
       If Target.Value = 0 Then
           Sheets("01").Visible = False
       ElseIf Target.Value = 1 Then
           Sheets("01").Visible = True
       End If
   End If
End Sub

  4. Schließe den VBA-Editor:

    • Speichere deine Änderungen und schließe den Editor, um zurück zu Excel zu gelangen.

  5. Teste das Makro:

    • Ändere die Werte in den Zellen C11 und C12, um zu sehen, ob die entsprechenden Tabellenblätter ein- oder ausgeblendet werden.

Häufige Fehler und Lösungen

  • Fehler: Das Tabellenblatt wird nicht eingeblendet.

    • Lösung: Stelle sicher, dass die Werte in den Zellen korrekt eingegeben sind (0 oder 1). Überprüfe auch die Schreibweise der Blattnamen im Code.

  • Fehler: Der VBA-Code wird nicht ausgeführt.

    • Lösung: Der Code muss im richtigen Arbeitsblattmodul platziert werden, nicht im allgemeinen Modul.

  • Fehler: Das Arbeitsblatt bleibt ausgeblendet, auch wenn der Wert geändert wird.

    • Lösung: Überprüfe, ob das Worksheet_Change-Ereignis korrekt implementiert ist und dass die Zellen C11 und C12 tatsächlich geändert werden.

Alternative Methoden

  • Verwendung von Excel-Formeln: Anstatt VBA zu verwenden, kannst Du auch mit bedingter Formatierung arbeiten, um visuelle Hinweise zu geben, aber das Ein- und Ausblenden von Tabellenblättern ist mit VBA effektiver.

  • Button zur Ausführung des Makros: Du kannst einen Button in Excel einfügen, der das Makro ausführt, anstatt auf die Zellen zu reagieren.

Praktische Beispiele

  1. Einblenden eines Blattes bei spezifischem Wert:

    • Wenn in C11 der Wert 1 eingegeben wird, wird das Blatt "00" sichtbar, andernfalls bleibt es ausgeblendet.

  2. Verstecken eines Blattes:

    • Damit das Blatt "01" nur sichtbar ist, wenn der Wert in C12 1 beträgt, musst Du die Logik entsprechend anpassen.

Tipps für Profis

  • Versteckte Blätter: Wenn Du ein Blatt sehr versteckt machen möchtest, kannst Du die Eigenschaft Visible auf xlSheetVeryHidden setzen. Das Blatt ist dann nicht mehr im Tab-Menü sichtbar.

    Sheets("00").Visible = xlSheetVeryHidden

  • Fehlerbehandlung: Implementiere Fehlerbehandlung im VBA-Code, um unerwartete Fehler besser zu handhaben.

FAQ: Häufige Fragen

1. Wie kann ich ein ausgeblendetes Blatt wieder sichtbar machen? Um ein ausgeblendetes Blatt wieder einzublenden, kannst Du den folgenden Befehl verwenden:

Sheets("00").Visible = True

2. Was ist der Unterschied zwischen xlSheetHidden und xlSheetVeryHidden? xlSheetHidden blendet das Blatt aus, ist jedoch über das Excel-Menü wieder einblendbar. xlSheetVeryHidden kann nur über VBA wieder eingeblendet werden.

3. Kann ich mehrere Blätter gleichzeitig ein- oder ausblenden? Ja, Du kannst die Logik im VBA-Code erweitern, um mehrere Blätter gleichzeitig zu bearbeiten, indem Du die entsprechenden Bedingungen hinzufügst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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