alle blätter die mit "x" beginnen ausblenden

06/08/2009 - 18:01 von klaus.könig | Report spam
hallo zusammen,

kann mir da jemand einen tipp geben, damit ich alle sheets die mit x
beginnen ausblenden kann.

danke!

klaus
 

Lesen sie die antworten

#1 Claus Busch
06/08/2009 - 18:10 | Warnen spam
Hallo Klaus,

Am Thu, 6 Aug 2009 09:01:31 -0700 (PDT) schrieb klaus.könig:

kann mir da jemand einen tipp geben, damit ich alle sheets die mit x
beginnen ausblenden kann.



probiers mal so:
Sub Ausblenden()

Dim ws As Worksheet

For Each ws In Sheets
ws.Visible = Left(ws.Name, 1) <> "x"
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen