Office: Arbeitsblatt über einen Button aus,- und einblenden

Hallo an Alle Spezis in Sachen VBA *wink.gif*

Ich möchte über einen VBA-Code die Möglichkeit bieten, ein Arbeitsblatt über einen Button einblenden, und sollte es eingeblendet sein wieder ausblenden zu können.

Momentan stelle ich es folgendermaßen dar:

Private Sub Passivtableau_Click()
Sheets("Tableau Passiv").Visible = xlSheetVisible
Worksheets("Tableau Passiv").Activate
End Sub

Hier wird es jedoch nur eingeblendet. Wie kann ich es also ermöglichen über den gleichen Button das Arbeitsblatt auszublenden?

Dies muss sicherlich über einen IF-String dargestellt werden, oder?

LG Ghost

:)

 

Hi Geist,

Private Sub Passivtableau_Click()
With Sheets("Tableau Passiv")
.Visible = Not .Visible
If .Visible Then .Activate
End With
End Sub

 

Hallo Josef,

leider funktioniert der String nicht ganz, und das liegt an mir:

Bei Start der Datei werden sämtliche Arbeitsblätter über:

'Arbeitsblätter automatisch ausblenden
Sheets("Beschluss Aktiv").Visible = xlVeryHidden
Sheets("Beschluss Passiv").Visible = xlVeryHidden

usw. ausgeblendet. Blende ich diese über

' ArbeitsblätterEinblenden
Sheets("Beschluss Aktiv").Visible = xlSheetVisible
Sheets("Beschluss Passiv").Visible = xlSheetVisible

usw. ein funktioniert der String. Ich denke es liegt an dem Befehl "xlVeryHidden", oder?

Kann ich das Ausblenden bzw. Einblenden über einen anderen String lösen?

LG Ghost

 

Hi,

dann gehtt's so.

Private Sub Passivtableau_Click()
With Sheets("Tableau Passiv")
If .Visible = xlSheetVeryHidden Then
.Visible = xlSheetVisible
.Activate
Else
.Visible = xlSheetVeryHidden
End If
End With
End Sub

 

Der String ist perfekt.....Danke nochmals dafür!

LG Ghost