Hallo Forum,

ich bräuchte eure Hilfe bei einem Problem.

Folgendes will ich umsetzen:

Ich habe eine ComboBox in der ich zur Auswahl "conforms" und "not tested" habe, also Value dazu sind die russischen Wörter angegeben. Ziel des ganzen sollte sein, dass ich auf Englisch meine Auswahl treffe und in einer anderen ComboBox oder Textfeld erscheint das russische Wort dazu. Also Eingabe englisch, Ausgabe russisch, es handelt sich hierbei immer nur um die 2 Wörter.

Bisheriger Code:

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    Dim rng As Range
    Dim bm As Bookmark
    Dim bmt As Bookmark

  
    If (ContentControl.Type = wdContentControlComboBox) Then
        Set rng = ContentControl.Range
        Set bm = rng.Bookmarks(1)
        Set bmt = ActiveDocument.Bookmarks(bm & "tgt")
               
               
    ElseIf (ContentControl.Type = wdContentControlText) Then
    
    End If
    
End Sub

Bmt steht in diesem Sinne für die Textmarke einer ComboBox bzw. eines Textfeldes.

Nun 2 Probleme:

Zum einen glaube ich, dass ich das durch eine 2. Combobox machen muss, da ich ja im VB selbst nicht mit russischen Ziffern arbeiten kann. Da entsteht aber nun das Problem: Wie kann ich die Indexauswahl der 1. Combobox (z.B. erste Auswahl gewählt) auf die 2. ComboBox übertragen? (Damit dort dann auch automatisch die 1. Auswahl getroffen wird)