Aktiviere Editbox in Custom Ribbon

Moin zusammen,

ich habe ein Custom Ribbon mit einer Checkbox und einer Editbox.

Wenn Die Checkbox aktiviert wird, soll auch die Edibox aktiviert werden und umgekehrt. Leider hänhgt es bei mir irgendwo.

Das ist mein XML:

Public RibbonUEH As IRibbonUI

Public Sub OnRibbonLoad(objRibbon As IRibbonUI)
    Set RibbonUEH = objRibbon
End Sub

Sub ZweitesWJ_Aktiviert(control As IRibbonControl, ByRef ZweitesWJ_Status)
    
    ZweitesWJ_Status = tblBackend.Range("P12").Value

End Sub

Sub ZweitesWJ_Klick(control As IRibbonControl, ByRef ZweitesWJ_Status)
    
    Select Case ZweitesWJ_Status
    
        Case True
        
            tblBuchungenWJ2.Visible = xlSheetVisible
            tblSuSaWJ2.Visible = xlSheetVisible
            tblAbstimmungWJ2.Visible = xlSheetVisible
            tblBackend.Range("P12").Value = ZweitesWJ_Status
            
        Case False
            
            tblBuchungenWJ2.Visible = xlSheetVeryHidden
            tblSuSaWJ2.Visible = xlSheetVeryHidden
            tblAbstimmungWJ2.Visible = xlSheetVeryHidden
            tblBackend.Range("P12").Value = ZweitesWJ_Status
            
    End Select
    
    UpdateEditBox_ZweitesWJ
    
End Sub

Sub ZweitesWJ_NameAktiviert(control As IRibbonControl, ByRef ZweitesWJ_NameStatus)
    
    ZweitesWJ_NameStatus = tblBackend.Range("P12").Value

End Sub

Sub UpdateEditBox_ZweitesWJ()

    RibbonUEH.InvalidateControl "ebxWirtschaftsjahr2"

End Sub

RibbonUEH.InvalidateControl "ebxWirtschaftsjahr2"