Rahmen von Groupboxes
04.04.2014 17:55:39
Groupboxes
ich habe in einer Arbeitsmappe einige Tabellenblätter mit Gruppenrahmen und Optionsfeldern. Jetz möchte ich gerne die Gruppenrahmen unsichtbar machen.
Folgenden Code habe ich verwendet:
Dim grpElement As GroupBox
Dim bySheet As Byte
For bySheet = 1 To ActiveWorkbook.Sheets.Count
Sheets(bySheet).Select
For Each grpElement In ActiveSheet.GroupBoxes
grpElement.Visible = msoFalse
Next grpElement
bySheet = bySheet + 1
Next bySheet
End Sub
Die innere Schleife allein funktioniert. Was ist an der äußeren falsch?