Herbers Excel-Forum - das Archiv

alle ausgeblendeten tabellen anzeigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox
Bild

Betrifft: alle ausgeblendeten tabellen anzeigen
von: roland_k

Geschrieben am: 08.03.2005 18:22:04
hi zusammen
wie kann ich denn feststellen wieviele oder welche tabellen ausgeblendet sind ?
wollte macrorecorder laufen lassen aber finde gar nicht wie die ausgfeblendeten tabellen finde
danke im voraus
roland_k
Bild

Betrifft: AW: alle ausgeblendeten tabellen anzeigen
von: Matthias G
Geschrieben am: 08.03.2005 18:25:37
Hallo Roland,
Sub Test()
Dim Sh As Worksheet, zähler As Integer
zähler = 0
For Each Sh In ActiveWorkbook.Sheets
If Not Sh.Visible Then zähler = zähler + 1
Next Sh
MsgBox zähler & " ausgeblendet!"
End Sub
Gruß Matthias
Bild

Betrifft: AW: alle ausgeblendeten tabellen anzeigen
von: ransi

Geschrieben am: 08.03.2005 18:48:58
hallo roland
brauchst zu diesem code 2 listboxen auf einem sichtbaren tabellenblatt.
und dann mal starten...
Public
Sub test()
Dim blatt
ListBox1.Clear
ListBox2.Clear
For Each blatt In Worksheets
If blatt.Visible = True Then
ListBox1.AddItem blatt.Name
Else:
ListBox2.AddItem blatt.Name
End If
Next
End Sub

ransi
Bild

Betrifft: danke ransi + matthias ...genau ok beides
von: roland_k
Geschrieben am: 09.03.2005 16:37:49
danke euch kann beides einsetzen
gruss roland_k
 Bild
Excel-Beispiele zum Thema "alle ausgeblendeten tabellen anzeigen"
Grafiken aus ausgeblendeten Blättern einblenden Blattwechsel zwischen xlVeryHidden ausgeblendeten Blättern
Spaltenbreiten der nicht ausgeblendeten Spalten anpassen Suche über mehrere Tabellen
Benennen von Tabellenblättern mit Monatsnamen Druckseitenlinien im Tabellenblatt
Tabellenblattnamen in ein Listenfeld einlesen Suchbegriff über mehrere Tabellenblätter suchen.
Tabellenblätter benennen Tabellenblatt auswählen