Schaltfläche (Button) unter excel XP einrichten

Question

Hallo, ich habe mal wieder ein kleines problem.

bei meiner tabele möchte ich meine tabellenblätter nicht sichtbar machen und nur unter der ersten tabelle mit einem button zu erreichen sein.

gruß dieter

Answer 1

Hallo,

Code zum Ausblenden eines Tabellenblattes, hier der Tabelle mit dem Namen Tabelle2 (das Blatt kann auch nur per VBA wieder eingeblendet werden):

Sub ausblenden()
Worksheets("Tabelle2").Visible = xlVeryHidden
End Sub

Und mit diesem Code wird das Blatt wieder eingeblendet und auf das Blatt gewechselt:

Sub einblenden()
With Worksheets("Tabelle2")
.Visible = True
.Activate
End With
End Sub

Gruß

M.O.

Answer 2

hi all ^^

eine andere variante waere es ueber 2 commandbutton zu steuern

z.b.

blätter mit dessen index nach rechts bzw links anwählen
1 commandbutton mit dem Symbol <
1 commandbutton mit dem Symbol >
beide als alternative auch mit text und oder blätternamen nutzbar

m.o. seinen code nutzen und den blattnamen durch den index ersetzen
einen + zaehler für den index in den einen commandbutton
einen - zaehler fuer den index in den anderen commanbutton

viel spass beim tuefteln ^^

gruss nighty