Office: Mehrere Tabellenblätter ein-/ausblenden

Bravestar · 11. Februar 2008

Hallo zusammen,

habe eine kleinere Aufgabe zu bewältigen, die ich alleine so nicht hinbekommen.
Ich habe eine Arbeitsmappe, in der alle Tabellenblätter ausgeblendet werden.
Über eine selbstgestrickte Symbolleiste rufe ich nun die einzelnen Tabellenblätter auf. Dazu mal eben hier der Code
Code:

Option Private Module
Sub hide(shname As String)
Dim Sh
Sheets(shname).Visible = True
For Each Sh In Sheets
If Sh.Name shname Then Sh.Visible = xlVeryHidden
Next
End Sub

Sub Preise()
hide ("Preise")
End Sub

Sub Deckblatt()
hide ("Deckblatt")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt möchte ich aber nicht nur 1 Tabellenblatt aufrufen,
sondern direkt 3 Tabellenblätter durch drücken auf einen Menüpunkt meiner Symbolleiste.

Kann man das irgendwie auch mit einer For Schleifen lösen?

Über Hilfe würde ich mich sehr freuen.

:)

chris-kaiser · 12. Februar 2008

hiho

Code:

Sub weg()
Dim ar(), i
ar = Array("Tabelle1", "Tabelle2", "Tabelle3")
For i = 0 To UBound(ar())
Sheets(ar(i)).Visible = xlVeryHidden
Next
End Sub

Sub ein()
Dim ar(), i
ar = Array("Tabelle1", "Tabelle2", "Tabelle3")
For i = 0 To UBound(ar())
Sheets(ar(i)).Visible = True
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

passte es so?

Bravestar · 12. Februar 2008

Hallo chris,

wie immer Perfekt!!!!!
DANKESCHÖN!

Fösi · 23. November 2016

Hallo Chris oder ...

Wie muss dein Code lauten, wenn diese drei Tabellenblätter
Code:

ar = Array("Tabelle1", "Tabelle2", "Tabelle3")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

angezeigt werden sollen und alle anderen nicht?

Code:

Sub weg()
Dim ar(), i
ar = Array("Tabelle4", "Tabelle5", "Tabelle6", "Tabelle7", "Tabelle8")
For i = 0 To UBound(ar())
Sheets(ar(i)).Visible = xlVeryHidden
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es Grüsst
Fösi

Office: Mehrere Tabellenblätter ein-/ausblenden

Mehrere Tabellenblätter ein-/ausblenden

Mehrere Tabellenblätter ein-/ausblenden

Mehrere Tabellenblätter ein-/ausblenden

Mehrere Tabellenblätter ein-/ausblenden - Similar Threads - Tabellenblätter ausblenden

Beim schließen alle Tabellenblätter ausblenden

Tabellenblatt per Timer ausblenden

Tabellenblatt per Dropdown ein-/ausblenden

Tabellenblätter automatisch ausblenden

Tabellenblatt einblenden nach ausblenden

Umstellen von Code in CheckBox (Tabellenblätter ein / ausblenden)

automatisches Ausblenden von Zeilen in anderem Tabellenblatt