Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblätter ein- ausblenden über Dropdown


Betrifft: Tabellenblätter ein- ausblenden über Dropdown
von: Tobs_87
Geschrieben am: 11.12.2018 09:53:56

Guten Morgen zusammen,

will für eine Checkliste Tabellenblätter je nach Konfiguration einblenden. Die Mappe besteht aus 12 Tabellenblättern und 6 Dropdown Menüs. Jedes Menü soll zwischen nichts anzeigen, Tabelle A.1 anzeigen oder Tabelle A.2 anzeigen auswählbar sein. Im Normalfall sollen alle Tabellenblätter ausgeblendet sein.

http://www.herber.de/bbs/user/126012.xlsm

Danke im voraus für eure Mühe und freundlichen Grüßen

Tobs

  

Betrifft: AW: Tabellenblätter ein- ausblenden über Dropdown
von: Daniel
Geschrieben am: 11.12.2018 10:08:09

Hi
verwende folgenden Code im Modul des Tabellenblatts "Konfiguration"
achte darauf, dass die Blattnamen in der Tabelle genauso geschrieben sind wie im Reiter, ansonsten bleibt das Blatt ausgeblendet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Target.Column = 2 Then
    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.Name
            Case Me.Name
            Case Else
                If -WorksheetFunction.CountIf(Columns(2), sh.Name) <> sh.Visible Then _
                                                               sh.Visible = Not sh.Visible
        End Select
    Next
End If
End Sub
Gruß Daniel


  

Betrifft: AW: Tabellenblätter ein- ausblenden über Dropdown
von: Tobs_87
Geschrieben am: 11.12.2018 10:21:24

Hi Daniel,

perfekt ich danke dir!

Gruß Tobs