ich habe folgendes Problem:
ich möchte über ein Programm bestimmte Zeilen auf verschiedenen Tabellenblättern ein-/ausblenden. Nach einem Vorschlag aus dem Excel VBA-Kompendium definiere ich ein Array mit den Seitennamen und wähle diese an. Das klappt wohl auch (Die Reiter sind weiß hinterlegt). Wenn ich dann aber die Zeilen ausblenden will, werden nur die Zeilen des ersten Blattes ausgeblendet. Die anderen Blätter bleiben unverändert. Hier das Sub:
Dim e As Long
Dim i As Integer
Dim TabArray() As Long
i = ThisWorkbook.Worksheets.Count
ReDim TabArray(1 To i - 1)
For e = 2 To i
TabArray(e - 1) = e
Next e
If CheckboxT30.Value = True Then
ThisWorkbook.Worksheets(TabArray).Select
Rows("16:29").Select
Selection.EntireRow.Hidden = False
Else: ThisWorkbook.Worksheets(TabArray).Select
Rows("16:29").Select
Selection.EntireRow.Hidden = True
End If
Zeichne ich ein Makro auf, bei dem mehrere Blätter per Hand markiert sind, sieht es ähnlich aus:
Sheets(Array("Blanko", "Tabelle 1", "Tabelle 2")).Select
Sheets("Blanko").Activate
Rows("16:27").Select
Selection.EntireRow.Hidden = True
Aber auch wenn ich die Formulierung genau so übernehme funktioniert es nicht.
Hat jemand eine Idee?
Gruß Ralf