|
da nicht ersichtlich ist welchen Code du nun vor dir hast nach herumprobieren und wer weis was sonst noch.
Das mit dem Sheets(Array.... scheint nicht zu funktionieren, aber du hast ja schon die Zeile aufgelöst. Damit erhalte ich keinen Fehler mehr.
Worksheets("Studien").Range(strTargetAddress).EntireRow.Hidden = Not blnVisible
Worksheets(strTable).Range(strTargetAddress).EntireRow.Hidden = Not blnVisible
|