Es ergab sich ein Folgeproblem. Die im Anhang beschriebenen Checkboxen inkl. des Togglebutton liegen auf der Zeile, die Ausgeblendet wird. Hat ja an sich eigentlich nichts miteinander zu tun. Beim Ausblenden funktioniert auch alles. Nur beim Einblendet sind sie zwar noch auf Position, ich kann sie nur nicht mehr nutzen. Speicher ich nun und öffne die Datei erneut, sind die Elemente etwa eine Zeile nach unten verschoben.
Frage: gibt es eine Möglichkeit die Element zu fixieren? Oder gibt es ein Konflikt mit den Ausblendungen Zeile/Elemente?
Private Sub CheckBox5_Click()
Dim PW As String, Antwort As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
PW = "Bitte"
If CheckBox1 Then
Antwort = InputBox("Wie heißt das Zauberwort?!")
If Antwort PW Then
MsgBox "Nein Nein Nein :)"
Exit Sub
End If
End If
Rows("6").Hidden = Not CheckBox5
CheckBox1.Visible = CheckBox5
CheckBox2.Visible = CheckBox5
CheckBox4.Visible = CheckBox5
ToggleButton1.Visible = CheckBox5
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub