Tabellen ausblenden
28.07.2022 07:15:21
Daniela
Für euch wahrscheinlich eine Kleinigkeit, für mich eher eine Herausforderung.
Ich habe dieses Skript gefunden, das auch sehr gut funktioniert. Nun möchte ich aber nicht alle Tabellen-blätter ausblenden und auf VeryHidden setzen sondern ich möchte die aktive Tabelle (das sowieso offen bleibt) und dazu noch die Tabelle14 offen bleibt. Kann man das noch in dieses Skript mit einbauen?
Wäre Cool wenn ich einen Anhaltspunkt bekommen könnte.
Sub Tabellen_ausblenden()
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ThisWorkbook.Worksheets
If Tabellenblatt.Name ThisWorkbook.ActiveSheet.Name Then
Tabellenblatt.Visible = xlVeryHidden
End If
Next Tabellenblatt
End Sub