Thema Datum  Von Nutzer Rating
Antwort
Rot Word Drop-Down automatisches aktualisieren von Textfeld
27.12.2023 00:26:35 Melvin
NotSolved
27.12.2023 10:49:22 ralf_b
NotSolved
27.12.2023 16:18:17 Gast75930
NotSolved

Ansicht des Beitrags:
Von:
Melvin
Datum:
27.12.2023 00:26:35
Views:
550
Rating: Antwort:
  Ja
Thema:
Word Drop-Down automatisches aktualisieren von Textfeld

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word Drop-Down automatisches aktualisieren von Textfeld
27.12.2023 00:26:35 Melvin
NotSolved
27.12.2023 10:49:22 ralf_b
NotSolved
27.12.2023 16:18:17 Gast75930
NotSolved