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"