Tabellen flexiebel ausblenden

Forumthread: Tabellen flexiebel ausblenden

05.11.2015 22:40:09

Tino

Hallo Zusammen,
ich brauche eure Hilfe, da ich gerade auf dem Schlauch stehe.
Meine Arbeitsmappe umfasst mehrere Tabellenblätter die via Makro Befehl angesprochen werden.
Tabelle 1 (Start) = 8 Felder zum Wählen der Kategorie
Tabelle 2 ( Auswahl) Tabellen mit einzelnen Unterpunkten der gewählten Kategorie
Tabelle 3 (Übersicht) mit Makro Verknüpfung zu den Details
Tabelle 4 (Detail 1)
Tabelle 5 (Detail 2)
Tabelle 6 (Detail 3)
Wenn ich auf Tabelle 2 das Detail 3 anklicke blendet er mit das Tabellenblatt 6 ein und zeigt mir Y7:X16 Rot an.
Selbiges ist auch über Tabelle 3 (Übersicht) möglich.
Auf Tabelle 6 soll nun ein Makro liegen der mir alle Tabellenblätter der Details und der Übersicht schließt um die Kategorie wieder zu beenden.
Mein Ansatz wäre: Blende alle Tabellen aus außer Tabelle 2 (Auswahl)
Wie würde der Befehl lauten?
Vielen Dank im Vorraus!
Mein Aktiver Makro in Tabelle 6 lautet:

Sub Tabelle_6_Weiß()
' Tabelle_6_Weiß Makro
' löscht alle Markierten Felder und macht sie wieder Weiß neutral
Worksheets("Tabelle 6").Unprotect Password:=""
Cells.Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("Y7:X16").Select
Selection.ClearContents
Range("W32").Select
Worksheets("Tabelle 6").Protect Password:=""
ActiveWindow.Zoom = 35
Sheets("Tabelle 6").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Auswahl").Select
Range("A4").Select
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellen flexiebel ausblenden

06.11.2015 00:06:30

fcs
AW: Tabellen flexiebel ausblenden

06.11.2015 01:31:42

Tino

AW: Tabellen flexiebel ausblenden

06.11.2015 00:06:30

fcs

Hallo tino,
dann musst du das Makro etwa in die folgende Richtung anpassen.
Entweder bestimmte Blätter -zusammengefasst in einem Array- ausblenden,
oder in einer Schleife alle Blätter bis auf Ausnahmen ausblenden.
Gruß
Franz

Sub Tabelle_6_Weiß()
' Tabelle_6_Weiß Makro
' löscht alle Markierten Felder und macht sie wieder Weiß neutral
Dim objSheet As Object
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("Detail 3") 'Blattname ggf. anpassen  ?
'    With Tabelle6 'alternativ - Blatt-Codename ggf. anpassen
.Select
.Unprotect Password:=""
With .Cells.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Range("Y7:X16").ClearContents
.Range("W32").Select
.Protect Password:=""
ActiveWindow.Zoom = 35
End With
With ActiveWorkbook.Sheets("Auswahl")
'    With Tabelle2 'alternativ mit Codename
.Visible = xlSheetVisible
.Select
.Range("A4").Select
End With
'Ausblenden bestimmter Blätter
ActiveWorkbook.Sheets(Array("Übersicht", "Detail 1", "Detail 2", "Detail 3")).Visible =  _
xlSheetHidden
'Alternative - Ausblenden aller Blätter außer bestimmten in einer Schleife
For Each objSheet In ActiveWorkbook.Sheets
Select Case objSheet.Name
Case "Auswahl", "Start"
'diese Blätter nicht ausblenden
Case Else
objSheet.Visible = xlSheetHidden
End Select
Next objSheet
Application.ScreenUpdating = True
End Sub

AW: Tabellen flexiebel ausblenden

06.11.2015 01:31:42

Tino

Guten Morgen Franz,
vielen Dank für die rasche Hilfe, es hat super funktioniert.
Variante 1:
'Ausblenden bestimmter Blätter
ActiveWorkbook.Sheets(Array("Übersicht", "Detail 1", "Detail 2", "Detail 3")).Visible = _
xlSheetHidden
hat leider nicht Funktioniert aber
Variante 2:
'Alternative - Ausblenden aller Blätter außer bestimmten in einer Schleife
For Each objSheet In ActiveWorkbook.Sheets
Select Case objSheet.Name
Case "Auswahl", "Start"
'diese Blätter nicht ausblenden
Case Else
objSheet.Visible = xlSheetHidden
End Select
Next objSheet
ist genau das was ich suchte!
Besten Dank
Grüße Tino

Beliebteste Forumthreads (12 Monate)

Forumthread: Tabellen flexiebel ausblenden

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread