Hallo Ihr fleißigen Excel-Profis,

ich bräuchte da einen heißen Tipp: ich habe ein Excel-Workbook mit 40 Tabellenblättern. Über eine Listbox kann man auswählen, ob man ein Tabellenblatt aus- oder einblenden will. Mein Problem ist hier Folgendes: Ich möchte in der Listbox zusätzlich zu den Tabellennamen und dem Status "sichtbar" oder " unsichtbar" auch einen Kontrollwert aus dem jeweiligen Tabellenblatt anzeigen lassen. Der Kontrollwert ist eine Summe, die in jedem Blatt in der Zelle A500 steht. Dies soll dem Nutzer helfen, dass er beim Wert = "0" das Blatt per CommandButton ausblenden kann.

Hier ist der Code für das UserForm. Wer hätte einen Rat, wie das ganze zu ergänzen ist?

Private Sub UserForm_Initialize()
UserForm1.Caption = "Hide and show hidden sheets"
Dim i As Long
CommandButton1.Caption = "Close"
CommandButton2.Caption = "Hide / show"
ListBox1.ColumnCount = 2
ListBox1.Clear
zh = 0
i = Sheets(1).Index
For Each sheet In ActiveWorkbook.Sheets
If sheet.Index > 11 Then
ListBox1.AddItem sheet.Name
If sheet.Visible = xlVeryHidden Then
ListBox1.List(zh, 1) = "hidden"
Else
ListBox1.List(zh, 1) = "visible"
End If
zh = zh + 1
End If
Next
ListBox1.ListIndex = 0
End Sub