Ich habe Excel 2016 beim Öffnen der Arbeitsmappe bekomme ich den Laufzeitfehler '438' Objekt unterstützt Eigenschaft oder Methode nicht. Markiert wird der Bereich
Sheets(Array("Studien", strTable)) _
.Range(strTargetAddress).EntireRow _
.Hidden = Not blnVisible
Wenn das nicht geht - war wie gesagt ungetestet, kein Excel zur Hand - dann entweder:
1 2 | Call Sheets(Array( "Studien" , strTable)). Select ()
Selection.Range(strTargetAddress).EntireRow.Hidden = Not blnVisible
|
Der Gedanke hier ist, dass man in einem Rutsch, über alle markierten Tabellenblätter hinweg, die selbe Range anspricht - muss man aber nicht.
... oder gleich ganz direkt:
1 2 | Worksheets( "Studien" ).Range(strTargetAddress).EntireRow.Hidden = Not blnVisible
Worksheets(strTable).Range(strTargetAddress).EntireRow.Hidden = Not blnVisible
|
Falls du nicht die selbe Range auf beiden Blättern meinst, musst du das natürlich anpassen.
Grüße
|