Hallo und frohe Weihnachten,

ich experimentiere gerade mit VBA in Word.

Ich möchte gerne in einem DropDown dd1 einen Eintrag auswählen und das dann anschließend der gleiche Eintrag in dd2 automatisch ausgewählt wird.

Ich habe nun unten angegebenen Code, mit Debug Kommentaren.

Selbst die Debug Kommentare werden nicht ausgelöst.

Private Sub Document_ContentControlBeforeContentUpdate(ByVal ContentControl As ContentControl, Content As String)
    Dim objContentControlListEntry As ContentControlListEntry
    
    ' Debugging-Meldung für das verlassene Content Control
    Debug.Print "Verlassenes Content Control: " & ContentControl.Tag & " - " & ContentControl.Range.Text
    
    ' Überprüfen, ob das Content Control den Tag "dd1" hat
    If ContentControl.Tag = "dd1" Then
        ' Debugging-Meldung für den Beginn der Suche im "dd2" Control
        Debug.Print "Suche nach Eintrag in dd2 gestartet."
        
        Dim dd2Control As ContentControl
        ' Das Content Control mit dem Tag "dd2" finden
        Set dd2Control = SelectContentControlsByTag("dd2").Item(1)
        
        ' Überprüfen, ob das "dd2" Content Control gefunden wurde und es eine Dropdown-Liste ist
        If Not dd2Control Is Nothing And dd2Control.Type = wdContentControlDropdownList Then
            ' Debugging-Meldung, dass "dd2" Control als Dropdown-Liste gefunden wurde
            Debug.Print "dd2 Control als Dropdown-Liste gefunden."
            
            ' Durchlaufen der Einträge des "dd2" Content Controls
            For Each objContentControlListEntry In dd2Control.DropdownListEntries
                ' Vergleich des Texts des "dd1" Content Controls mit den Einträgen des "dd2" Content Controls
                If objContentControlListEntry.Text = ContentControl.Range.Text Then
                    ' Debugging-Meldung für den gefundenen Eintrag in "dd2"
                    Debug.Print "Gefundener Eintrag in dd2: " & objContentControlListEntry.Text
                    
                    ' Den entsprechenden Eintrag in "dd2" auswählen
                    objContentControlListEntry.Select
                    Exit For ' Die Schleife beenden, da der Eintrag gefunden wurde
                End If
            Next objContentControlListEntry
        Else
            ' Debugging-Meldung, falls "dd2" Control nicht gefunden oder keine Dropdown-Liste ist
            Debug.Print "dd2 Control nicht gefunden oder keine Dropdown-Liste."
        End If
    End If
End Sub
 

Vielen Dank für eure Hilfe.