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

Forumthread: Tabellenblatt ein- und ausblenden per Drop-Down

Tabellenblatt ein- und ausblenden per Drop-Down
17.11.2017 10:40:56
Johann
Moin aus Bayern!
Ich hätte eine Frage:
Ich habe eine Excel-Datei mit mehreren Tabellenblättern. Auf Tabellenblatt 1 mit dem Namen "Eingabedaten" kann man im Feld D3 per Dropdown-Liste 3 verschiedene Bauart-Typen auswählen. Zu jedem Bauart-Typ gibt es ein Tabellenblatt mit einer Montageanleitung.
Um sicherzustellen, dass immer die richtige Montageanleitung ausgewählt wird, möchte ich bei Auswahl von z.B. "Flex-Box" im Feld D3 der Eingabedaten, dass nur das Tabellenblatt "Flex-Box" eingeblendet ist - die anderen beiden jedoch nicht.
Wie bekomme ich das hin?
Grüße - Johann
Anzeige

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

Betreff
Datum
Anwender
Anzeige
mit einer Schleife ...
17.11.2017 11:26:07
Matthias
Hallo
Ins Blatt: "EingabeDaten"
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X&
If Not Intersect(Target, Range("D3")) Is Nothing And Target.Count = 1 Then
On Error Resume Next
Application.ScreenUpdating = False
For X = 1 To Worksheets.Count
If Worksheets(X).Name  "EingabeDaten" Then
Worksheets(X).Visible = False
End If
Next
Worksheets(Target.Value).Visible = True
Err.Clear
End If
End Sub

https://www.herber.de/bbs/user/117721.xlsm
Gruß Matthias
Anzeige
AW: Tabellenblatt ein- und ausblenden per Drop-Down
17.11.2017 12:26:26
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Dort das hier reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TB
If Target.Count = 1 And Target = Range("D3") Then
For Each TB In ThisWorkbook.Sheets
If TB.Name  ActiveSheet.Name And _
TB.Name  Sheets(Target.Value).Name Then
TB.Visible = False
Else
TB.Visible = True
End If
Next
End If
End Sub
Bei Änderungen in D3 wird das Makro automatisch ausgeführt
LG UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt ein- und ausblenden per Drop-Down


Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei mit mehreren Tabellenblättern.
  2. Gehe zu dem Tabellenblatt, das du für die Dropdown-Auswahl verwenden möchtest (z.B. "Eingabedaten").
  3. Erstelle ein Dropdown in der Zelle D3:
    • Klicke auf die Zelle D3.
    • Gehe zu Daten > Datenüberprüfung.
    • Wähle Liste und gebe die Werte für die Bauart-Typen ein oder wähle sie aus einem anderen Tabellenblatt (z.B. =Blatt2!A1:A3).
  4. Füge den VBA-Code hinzu:
    • Rechtsklicke auf den Tabellenblattreiter "Eingabedaten".
    • Wähle Code anzeigen und füge den folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Integer
If Not Intersect(Target, Range("D3")) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
    Application.ScreenUpdating = False
    For X = 1 To Worksheets.Count
        If Worksheets(X).Name <> "Eingabedaten" Then
            Worksheets(X).Visible = False
        End If
    Next
    Worksheets(Target.Value).Visible = True
    Err.Clear
End If
End Sub
  1. Teste die Dropdown-Liste, indem du einen Bauart-Typ auswählst. Das entsprechende Tabellenblatt sollte nun sichtbar sein, während die anderen ausgeblendet sind.

Häufige Fehler und Lösungen

  • Fehler: Das Dropdown funktioniert nicht richtig.

    • Lösung: Stelle sicher, dass die Zellreferenz im VBA-Code korrekt ist (D3) und dass die Dropdown-Liste richtig konfiguriert ist.
  • Fehler: Alle Tabellenblätter sind sichtbar.

    • Lösung: Überprüfe, ob der Code im richtigen Blattmodul eingefügt wurde. Der Code muss im VBA-Editor unter "Eingabedaten" angezeigt werden.

Alternative Methoden

Eine alternative Methode, um Tabellenblätter auszublenden, ist die Verwendung von Schaltflächen oder Formularelementen zur Steuerung der Sichtbarkeit. Du kannst auch eine Dropdown-Liste aus einem anderen Tabellenblatt erstellen, um die Auswahl zu erleichtern.

Hier ist ein Beispiel, wie du eine Dropdown-Liste mit Daten aus einem anderen Tabellenblatt erstellen kannst:

  1. Gehe zu dem Tabellenblatt mit den Daten.
  2. Markiere die Zellen, die die Werte enthalten.
  3. Kopiere die Zelladresse (z.B. Blatt2!A1:A10).
  4. Füge diese Adresse in das Dropdown-Feld der Datenüberprüfung im "Eingabedaten"-Blatt ein.

Praktische Beispiele

  • Beispiel 1: Du hast drei Bauart-Typen: "Flex-Box", "Stahl-Box", "Holz-Box". Bei Auswahl von "Flex-Box" sollte nur das Tabellenblatt "Flex-Box" sichtbar sein.
  • Beispiel 2: Du verwendest mehrere Dropdowns aus verschiedenen Tabellen, um verschiedene Daten zu filtern. Hierbei wird der Code ähnlich angepasst, um die Sichtbarkeit der entsprechenden Blätter zu steuern.

Tipps für Profis

  • Nutze VBA-Fehlerbehandlungsmechanismen, um unerwartete Fehler zu vermeiden.
  • Überlege, ob du Excel-Blätter ausblenden möchtest, um die Benutzeroberfläche sauberer zu gestalten.
  • Du kannst auch Excel-Sheets ausblenden und nur bestimmte Benutzer mit dem Passwort Zugang gewähren.

FAQ: Häufige Fragen

1. Wie kann ich ein ausgeblendetes Tabellenblatt wieder sichtbar machen? Um ein ausgeblendetes Tabellenblatt wieder sichtbar zu machen, klicke mit der rechten Maustaste auf einen Tabellenblattreiter und wähle Einblenden. Wähle das gewünschte Blatt aus der Liste aus.

2. Kann ich mehrere Dropdown-Listen verwenden? Ja, du kannst mehrere Dropdown-Listen nutzen. Stelle sicher, dass jeder Dropdown-Wert den entsprechenden Code im VBA hat, um das richtige Blatt sichtbar zu machen.

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