Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

264 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige