Hallo,

okidoki, dann gib mal Deinen Dropdowns Tags wie 'dd1' oder 'dd2' und dann folgender Code in das Dokumentenmodul:

Option Explicit

Private mstrText As String

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
If ContentControl.Tag = "dd1" Then mstrText = ContentControl.Range.Text
End Sub

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim objContentControl  As ContentControl
Dim objContentControlListEntry As ContentControlListEntry
If ContentControl.Tag = "dd1" Then
   If ContentControl.Range.Text <> mstrText Then
      For Each objContentControl In ContentControls
          If objContentControl.Tag = "dd2" Then
             For Each objContentControlListEntry In objContentControl.DropdownListEntries
                 If objContentControlListEntry.Text = ContentControl.Range.Text Then
                      Call objContentControlListEntry.Select
                      mstrText = vbNullString
                      Exit Sub
                 End If
             Next
          End If
      Next
   End If
End If
End Sub

Das sind Ereignisprozeduren, die Aktion erfolgt bei Verlassen des Dropdowns (bspw Click ins Word doc, oder drücken der Pfeil/Tabtaste...)

Gruß,