Office: (Office 2016) Auswerten einer CheckBox um Zeilen auszublenden

Nochmal der neue.

Ich würde gerne eine Zeile in Excel ausblenden wenn eine CheckBox in dieser Zeile true ist. Auch die CheckBox kann dann mit ausgeblendet werden.

 

Das ganze müsste in diesen Code eingearbeitet werden:

Private Sub CheckBox2_Click()
If CheckBox2.Caption = Chr$(163) Then
CheckBox2.Caption = "R"
globalBoolCheckBox2Ausgewählt = True
Range("B2") = "Haken gesetzt"
Else
CheckBox2.Caption = Chr$(163)
globalBoolCheckBox2Ausgewählt = False
Range("B2") = "Haken nicht gesetzt"
End If
End Sub

 

Hi,

ich würde dir empfehlen, nach Möglichkeit anstelle von CheckBoxen einfach das Doppelklick-Ereignis der Zelle zu verwenden - ActiveX-Steuerelemente haben nämlich den Nachteil, dass sie durch das Aus-und Einblenden häufig an eine andere Stelle im Tabellenblatt verschoben und ihre Größe verändert wird.

Bis später,
Karin

 

Hallo Karin,
danke für den Tip. Ich muss jedoch das ganze über Checkboxen machen. Das ist die Vorgabe. Aber das mit dem verschieben und Größe ändern klappt bei mir ohne Probleme.

 

Hi,

das kann 100 mal gut gehen und beim 101. mal nicht...

Ergänze diese beiden Codezeilen (am Ende deines Codes oder am Anfang):

Code:

    Rows(10).Hidden = CheckBox2 = True '<== Zeile anpassen
    CheckBox2.Visible = Rows(10).Hidden = False

Bis später,
Karin

 

Super, danke Karin. Es funktioniert.

Beste Grüße
Detlef