Tabellenblätter je nach Zellinhalt ein-/ausblenden

Hallo ins Forum!
Ich suche eine Lösung für das folgende Problem:
Je nach Benutzergruppe sollen verschiedene Tabellenblätter einer Arbeitsmappe ein- oder ausgeblendet werden.
Die Steuerung hierzu soll in einem separaten Tabellenblatt passieren, in etwa:
Zelle A1 = Auswahl der Gruppe (1,2,3 oder 4),
dann eine einfache Tabelle mit Zeilenköpfen "Name der Tabellenblätter" (Tabelle1, Tabelle2, ..., Tabelle48), Spaltenköpfen "Name der Gruppe" (Gruppe1, Gruppe2 usw.) sowie den Zellinhalten "ein" oder "aus" bzw. 0 oder 1 (für Tabellenblatt ein- oder ausblenden).
Ich gehe davon aus, dass man hier 2 Prozeduren miteinander verschachteln muss. Leider übersteigt dieses Problem meine Kenntnisse. Kann mir jemand helfen?
Viele Grüße
Rüdiger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long, lColumn As Long If Target.Address = "$A$1" Then If Application.CountIf(Columns(3), Target) Then lRow = Application.Match(Target, Columns(3), 0) For lColumn = 4 To Cells(lRow, Columns.Count).End(xlToLeft).Column With Sheets(Cells(1, lColumn).Value) If Cells(lRow, lColumn) = 1 Then .Visible = xlSheetVisible Else .Visible = xlSheetVeryHidden End If End With Next End If End If End Sub

Hallo Rüdiger,
wenn Du Spalten und Zeilen vertauschen willst, dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lRow As Long, lColumn As Long
  
  If Target.Address = "$A$1" Then
    If Application.CountIf(Range("D1:G1"), Target) Then
      lColumn = Application.Match(Target, Range("D1:G1"), 0) + 3
      For lRow = 4 To Cells(Rows.Count, lColumn).End(xlUp).Row
        With Sheets(Cells(lRow, 3).Value)
          If Cells(lRow, lColumn) = 1 Then
            .Visible = xlSheetVisible
          Else
            .Visible = xlSheetVeryHidden
          End If
        End With
      Next
    End If
  End If
  
End Sub

Ich habe auch mal ein kleines Userform zusammengebaut, welches ebenfalls Blätter aktiviert und ein- und ausblendet, mit einer kurzen Einführung in die Klassenprogrammierung. Da wird das userform schrittweise erklärt und aufgebaut.
Beitrag:
http://www.xltips.de/ftxt/tab-ste/Klassen_txt.html
Wenn die "Theorie" nicht so von Interesse ist - Direktdownload:
http://www.xltips.de/ftxt/tab-ste/Blaetter/UserformButtonsCls004.xlsm

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J
1	4			Tabelle2	Tabelle3	Tabelle4	Tabelle5	Tabelle6	Tabelle7	Tabelle8
2			1	0	0	1	0	0	0	0
3			2	1	0	1	1	1	1	1
4			3	0	1	1	1	0	0	0
5			4	1	0	0	0	1	0	0

Tabellenblätter je nach Zellinhalt ein-/ausblenden

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

168 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter je nach Zellinhalt ein-/ausblenden

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

168 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread