USerform - Code
Helge
im Forum habe ich eine Userform zum Ausblenden von einzelnen Spalten gefunden.
Den Code habe ich angepasst auf Zeilen. Das funktionierte noch. Nun wollte ich hierfüber mittels 7 Button insgesamt 396 Zeilen ein- oder ausblenden. Aber das ganze flackert nur noch. Hier mal ein Ausschnitt. Die Checkboxen 2 bis 7 sind identisch nur mit anderen Zeilenangaben.
Private Sub UserForm_Activate()
Dim X&
For X = 1 To 7
Me.Controls("Checkbox" & X).Value = Not Rows(X).Hidden
Next
End Sub
Private Sub CheckBox1_Click()
Dim X&
For X = 18 To 29
Rows(X).EntireRow.Hidden = Not CheckBox1.Value
Next
End SubGruß
Helge