Clever-Excel-Forum

Hallo,

ich habe eine umfangreiche Tabelle mit derzeit 20 verschiedenen Tabellenblättern.
Zur besseren Nutzbarkeit habe ich diese in einem Userform verlinkt.

Ich rufe derzeit die Tabellenblätter per Button auf mit:

Code:
Private Sub CommandButton17_Click()

   Worksheets("REP-color").Activate

End Sub

Eigentlich sollen keine Tabellenreiter sichtbar sein, sondern nur die reinen Tabellen.
Wenn ich Tabellen ausblende, kann ich diese mit dem Button nicht mehr aufrufen.

Das ausblenden habe ich zum Beispiel versucht mit:

Code:
Sub VeryHiddenSheet()

       Sheets("REP-color").Visible = xlVeryHidden

End Sub

Code:
Sub HideSheet()

       Sheets("REP-color").Visible = False

 End Sub

Gibt es einen Befehl der das trotzdem erlaubt oder einen Weg mit dem ich sage:
Jetzt alle Tabellenblätter ausblenden, außer das mit dem Klick zu öffnende Blatt?

Das Problem ist gelöst.

Code für Button im Formular (Userform1)

Code:
Private Sub CommandButton1_Click()

   Call NURBLATT1

End Sub

Private Sub CommandButton2_Click()

   Call NURBLATT2

End Sub

Code für Modul1

Code:
Sub NURBLLATT1()

    If Sheets("TABELLENBLATT1").Visible = True Then Sheets("TABELLENBLATT1").Visible = xlVeryHidden

    If Sheets("TABELLENBLATT2").Visible = True Then Sheets("TABELLENBLATT2").Visible = xlVeryHidden

    (.... FÜR ALLE TABELLENBLÄTTER DIE AUSGEBLENDET WERDEN SOLLEN)

    WICHTIG EIN BLATT MUSS IMMER SICHTBAR BLEIBEN, - ZUM BEISPIEL TABELLENBLATTNOTIZEN- SONST GIBT ES FEHLER)

  Sheets("TABBELLENBLATT1").Visible = True  (hier TABBELLENBLATT1 soll sichtbar werden)

  Worksheets("TABBELLENBLATT1").Activate    (hier TABBELLENBLATT1 soll geöffnet werden)

End Sub

Sub NURBLLATT2()

    If Sheets("TABELLENBLATT1").Visible = True Then Sheets("TABELLENBLATT1").Visible = xlVeryHidden

    If Sheets("TABELLENBLATT2").Visible = True Then Sheets("TABELLENBLATT2").Visible = xlVeryHidden

  Sheets("TABBELLENBLATT2").Visible = True  (hier TABBELLENBLATT2 soll sichtbar werden)

  Worksheets("TABBELLENBLATT2").Activate    (hier TABBELLENBLATT2 soll geöffnet werden)

End Sub

sdtbluethink

sdtbluethink