habe in UserForm mehrere CheckBoxen mit denen ich Spalten ein- oder ausblende (siehe Beispiel).
Habe dazu 2 Fragen, die ihr mir vielleicht beantworten könnt. Im Archiv war ich erfolglos.
1. Wie kann ich verhindern, dass die über die CheckBoxen ausgeblendeten Spalten über Format, Spalten eingeblendet werden können?
2. Wenn ich z.B. 20 CheckBoxen einsetzen will, muss ich da für jede CheckBox die gleich Prozedur schreiben (wie Beispiel) oder geht das eleganter? Die Zustände der Boxen können unterschiedlich sein.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Columns("D:D").Hidden = True
Else: Columns("D:D").Hidden = False
End If
End Sub
Private Sub UserForm_Activate()
If Columns("D:D").Hidden = True Then
CheckBox1.Value = True
Else: CheckBox1.Value = False
End If
End Sub
Schon jetzt besten Dank.
Thomas