ich habe eine Userfor mit folgendem Code.
Private Sub UserForm_Activate()
Range("a1").Select
Dim X&
For X = 1 To 22
Me.Controls("Checkbox" & X).Value = Not Rows(X).Hidden
Next
End Sub
Private Sub CheckBox1_Click()
Range(Cells(30, 1), Cells(42, 1)).EntireRow.Hidden = Not CheckBox1.Value
End Sub
so geht es weiter mit den nächsten 21 CheckboxenEigentlich möchte ich den Zustand der ein- und ausblendeten Spalten beim Aufruf der Userform belassen und entsprechend anzeigen. Das X der jeweiligen Checkbox zeigt dann ab, ob die Spalten eingeblendet sind. Der jetztige COde aktiviert alle Checkboxen. Lasse ich den COde weg, sind dei Checkboxen alle nicht aktiviert, die Spalten sind dennoch eingeblendet.
Verständlich?
Viele Grüße
Franz