title image


Smiley Ein und Ausblenden von Tabellen in Excel2000 mit VBA
Hallo Excelperten



Ich blende in einem Modul mit:



Sub weg()

Dim c

For c = 2 To 30

Sheets(c).Visible = xlVeryHidden

Next

End Sub



die Tabellen 2 bis 30 aus. Hole diese dann wieder,

wenn ich sie benötige mit:



Sub wiederda()

Dim c

For c = 2 To 30

Sheets(c).Visible = True

Next

End Sub





Nun kommt es häufiger vor, das ich Tabellen hinzufüge.

Wie muß der Code aussehen um immer (Tabelle2 bis zur letzten Tabelle)

aus und wieder eingeblenden zu können ?



Ich möchte also nicht immer den Code ändern müssen.



Gruß Matthias
Gruß Matthias

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: