Office: (Office 365) Feld in Abhängigkeit eines Dropdowns

Hallo,

ich benötige in Word ein Dropdown und ein weiteres Feld, das sich abhängig vom ausgewählten Wert des Dropdowns befüllt.

Beispiel: Die Werte des Dropdowns sind "Feuerwehr", "Sonne", "Gras" und "Nacht". Wenn im Dropdown "Feuerwehr" ausgewählt wird, soll im nächsten Feld "rot" stehen; bei "Sonne" soll dort "gelb" stehen usw.

Ich weiß, dass es entweder mit IF REF oder in VBA über select case funktionieren müsste, aber ich komme gerade nicht klar. Kann mir jemand helfen?

Liebe Grüße

 

Hallo Andreas,

wenn du If-Felder und Ref-Felder einsetzen willst, funktioniert das mit Elementen aus den Formularfeldern aus Vorversionen besonders gut. Allerdings muss das Dokument schreibgeschützt sein.

Wenn du Inhaltssteuerelemente einsetzt, würde ich VBA empfehlen. Allerdings sieht der Code je nach gewähltem Element anders aus. Also sag mal Bescheid, was du einsetzen willst

 

Hallo Gerhard,

vielen Dank für deine Rückmeldung!

Ich denke, ich würde VBA Variante bevorzugen. Ich hatte es mit Kombinationsfeldern versucht, kam damit aber leider nicht auf das gewünschte Ergebnis. Meine VBA Kenntnisse sind aber leider auch recht begrenzt.

 

Hallo Andreas,

teste das angehängte Dokument. Es ist gezippt, weil Dokumente mit Makros hier nicht erlaubt sind. Es enthält folgendes Makro (im Modul ThisDocument):

Code:

Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim eintrag As String

'nur aktivieren, wenn der Tag des angeklickten Steuerelements "Auswahl" lautet:
If CC.Tag <> "Auswahl" Then Exit Sub

    'die Reaktionen auf die getätigte Auswahl festlegen:
    Select Case CC.Range.Text
        Case "Feuerwehr"
            eintrag = "Du hast 'Feuerwehr' ausgewählt"
        Case "Sonne"
            eintrag = "Du hast die 'Sonne' ausgewählt"
        Case "usw."
            eintrag = "und so weiter"
    End Select

'aktuellen Inhalt der Variable 'eintrag' ins Textfeld eintragen:
ActiveDocument.SelectContentControlsByTag("Reaktion").Item(1).Range.Text = eintrag

End Sub

Weitere Hinweise im Dokument selbst.

 

Hallo Gerhard,

so hatte ich mir das vorgestellt. Ganz lieben Dank!