Office 2016 Textboxen abhängig von Checkbox aktivieren

[FlorianF]

Hi Leute,

ich will erreichen, dass bei aktiver Checkbox bestimmte Textboxen aktiviert werden und bei deaktivierter Checkbox die Textboxen ebenfalls deaktiviert werden. Der folgende Code funktioniert insoweit, dass nach dem ersten aktivieren der Checkbox auch die Textboxen aktiviert werden. Der Weg zurück, dass also die Textboxen wieder deaktiviert werden funktioniert nicht.

Code: [Auswählen]

Private Sub chkDebitoren_AfterUpdate()
    'Wenn Checkbox Debitoren aktiviert ist auch die Textboxen aktivieren
    If chkDebitoren.Enabled = True Then
        txtDebitorenVon.Enabled = True
        txtDebitorenVon.Locked = False
        txtDebitorenVon.BackColor = &H80000005
        txtDebitorenBis.Enabled = True
        txtDebitorenBis.Locked = False
        txtDebitorenBis.BackColor = &H80000005
   
    'Wenn Checkbox Debitoren deaktiviert ist auch die Textboxen deaktivieren und Inhalt löschen
    ElseIf chkDebitoren.Enabled = False Then
        txtDebitorenVon.Enabled = False
        txtDebitorenVon.Locked = True
        txtDebitorenVon.BackColor = &H8000000F
        txtDebitorenVon.Text = ""
        txtDebitorenBis.Enabled = False
        txtDebitorenBis.Locked = True
        txtDebitorenBis.BackColor = &H8000000F
        txtDebitorenBis.Text = ""
    End If
End Sub
Hat jemand ne Ahnung woran das liegt?

Beste Grüße
Flo

[maninweb]

Hallo,

versuche es mal wie folgt. Locked brauchst Du in diesem Fall nicht, denn deaktivierte TextBoxen werden nicht
angesprungen. Locked ist für aktive, aber nicht editierbare Textfelder gedacht.

Code: Visual Basic

1. Private Sub chkDebitoren_AfterUpdate()
2.     If CBool(chkDebitoren.Value) Then
3.         txtDebitorenVon.Enabled = True
4.         txtDebitorenVon.BackColor = &H80000005
5.         txtDebitorenBis.Enabled = True
6.         txtDebitorenBis.BackColor = &H80000005
7.     Else
8.         txtDebitorenVon.Enabled = False
9.         txtDebitorenVon.BackColor = &H8000000F
10.         txtDebitorenVon.Text = ""
11.         txtDebitorenBis.Enabled = False
12.         txtDebitorenBis.BackColor = &H8000000F
13.         txtDebitorenBis.Text = ""
14.     End If
15. End Sub

Ausserdem würde ich eher das Klick-Ereignis Private Sub chkDebitoren_Click() verwenden,
als das AfterUpdate Ereignis.

Gruß

[FlorianF]

Läuft, danke!!