Hallo Hajo und alle die es interessiert,
das Makro funktioniert jetzt!
Hier eine kurze Erläuterung:
Das obige Makro "Tabellennamen" listet in Spalte A, die Namen der in der Datei enthaltenen Tabellenblätter auf.
Per Kontrollkästchen werden in Spalte C, die Einträge "WAHR" / "FALSCH" erzeugt, in Spalte B werden diese mit 1 multipliziert, das ergibt 1 / 0.
Die Variable i liest das aus und wird bei .Visible = i verwendet.
Warum das nun funktioniert ist mir (noch) ein Rätsel!
Sub Tabellen_aus_ein_blenden()
Dim intRow As Integer
Dim intSheets As Integer
Dim i As Byte
For intRow = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For intSheets = 2 To Sheets.Count
i = ActiveSheet.Cells(intRow, 2)
If Sheets(intSheets).Name = ActiveSheet.Cells(intRow, 1) Then
Sheets(intSheets).Visible = i
End If
Next intSheets
Next intRow
End Sub
Für sehr umfanreiche Dateien ergibt sich hiermit, eine komfortable Möglichkeit schnell nur gerade (nicht) / benötigten Tabellen anzuzeigen / auszublenden.
mfg
Wolfgang