Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Dropdown Feld miteinander Verknüpfen
#1
Hallo liebe Helfer.

Ich habe mir über Excel eine Tabelle gebaut. Diese besteht aus Funktion-Name-Telefonnummer.
Das alles brauche ich per Word (in einer Zeile).

Nun habe ich bei Word ein Dropdown Fenster geschaffen, in dem nach der Einbettung alle Funktionen aufgelistet sind (wie z.B. Leiter Betrieb, Leiter Logistik etc.).

Ich möchte nun gerne, dass wenn jemand z.B. den Leiter Logistik nimmt automatisch daneben angezeigt wird: Herr Müller TEL.: 0815

Ist das irgendwie machbar?

Über Excel würde ich einfach per SVERWEIS und/oder Wenn Funktion arbeiten aber bei Word fehlt mir die zündende Idee.

Vielen Dank für Eure Hilfe.
Antworten Top
#2
Hallo,

im Prinzip geht das schon, aber es wäre besser einen anderen Ansatz zu suchen!

In Word kann man ein "ContentControl" soll anlegen, dass es ähnlich wie ein "=sverweis()" funktioniert:

Code:
Sub T_1()
Dim CC As ContentControl
With ActiveDocument
    'wird an Selection eingefügt
    Set CC = .ContentControls.Add(wdContentControlDropdownList)
    CC.Tag = "ASN"
    CC.DropdownListEntries.Add "Cat", "A"
    CC.DropdownListEntries.Add "Dogs", "B"
    CC.DropdownListEntries.Add "Bird", "C"
    
    For Each CC In .ContentControls
        Debug.Print CC.Tag, CC.ShowingPlaceholderText, CC.Range.Text
    Next CC

End With
End Sub

Es ist auch möglich die Items direkt aus Excel zu übernehmen, d.h. auch Änderungen einzupflegen.

Es ist war schon etwas kompliziert!

mfg
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • skoppe
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste