Vielen Dank vorab !!
ich denke eine Möglichkeit ist folgende:
Worksheets("1").Visible = False
Worksheets("2").Visible = False
Worksheets("3").Visible = False
....
Worksheets("12").Visible = True
Wenn du das in die entsprechende Sub kopierst, werden deine Tabellenblätter ausgeblendet. Ist zwar ein wenig "Tipperei", aber du willst ja keine Schleife oder vergleichbares. Hier hast du ebenfalls die Möglichkeit, wenn du ein neues Tabellenblatt anlegst, es mit in Befehlszeilen aufzunehmen, in dem zu einfach
Worksheets("neues tabellenblatt").Visible = False(nicht sichtbar)
oder
Worksheets("neues tabellenblatt").Visible = True (sichtbar)
dazufügst. Hoffe das löst dein Problem,
Gruss Thorsten
wie waers damit:
Private Sub CommandButton1_Click()
Dim Tl As Integer
For Tl = 1 To Worksheets.Count - 1
With Worksheets(Tl)
Worksheets(Tl).Visible = False
End With
Next Tl
End Sub
Dabei werden alle Tabellen (von der ersten bis zur vorletzten) ausgeblendet. Du kannst so viele hinzufuegen wie du willst. Es werden immer alle Tabellen ausgeblendet nur die letzte bleibt sichtbar.
Hoffe es hilft.
Gruss
Andreas
Danke