alle ausgeblendeten tabellen anzeigen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "alle ausgeblendeten tabellen anzeigen"