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