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
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
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