Wie erstellt man abhängige Dropdown-Listen in einem Word-Dokument?

Wie im Screenshot gezeigt, möchten Sie möglicherweise die Auswahlmöglichkeiten in der zweiten Dropdown-Liste basierend auf der Auswahl in der ersten Dropdown-Liste einschränken. Dieser Artikel zeigt Ihnen, wie Sie abhängige Dropdown-Listen in einem Word-Dokument erstellen.
Erstellen Sie abhängige Dropdown-Listen in Word mit VBA-Code
Erstellen Sie abhängige Dropdown-Listen in Word mit VBA-Code
Die folgende VBA-Methode hilft Ihnen, eine abhängige Dropdown-Liste zu erstellen, bei der sich die zweite Liste je nach der Auswahl in der ersten Liste ändert. Folgen Sie diesen Schritten:
- Stellen Sie sicher, dass die Registerkarte "Entwickler" in Ihrer Word-Menüleiste sichtbar ist (falls nicht, siehe das Tutorial Wie zeigt man die Entwickler-Registerkarte in Word an?). Fügen Sie dann zwei Dropdown-Listen ein, indem Sie auf "Entwickler" > "Legacy-Formulare" > "Dropdown-Listenfeld" klicken.
- Klicken Sie mit der rechten Maustaste auf die erste Dropdown-Liste (dies wird die übergeordnete Liste sein) und wählen Sie "Eigenschaften".
- Im Dialogfeld "Optionen für Dropdown-Listenfeld":
- Geben Sie die Kategorien (z. B. "Obst", "Gemüse", "Fleisch") einzeln in das Feld "Dropdown-Element" ein und klicken Sie nach jeder Eingabe auf "Hinzufügen".
- Geben Sie "ddfood" in das Feld "Lesezeichen" ein.
- Klicken Sie auf "OK".
- Klicken Sie mit der rechten Maustaste auf die zweite Dropdown-Liste, wählen Sie "Eigenschaften", geben Sie "ddCategory" in das Feld "Lesezeichen" ein und klicken Sie auf "OK".
- Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
- Klicken Sie im VBA-Fenster auf "Einfügen" > "Modul" und fügen Sie den folgenden Code ein:
Sub Populateddfood() 'Update by Extendoffice 2018/10/25 Dim xDirection As FormField Dim xState As FormField On Error Resume Next Set xDirection = ActiveDocument.FormFields("ddfood") Set xState = ActiveDocument.FormFields("ddCategory") If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub With xState.DropDown.ListEntries .Clear Select Case xDirection.Result Case "Fruit" .Add "Apple" .Add "Banana" .Add "Peach" .Add "Lychee" .Add "Watermelon" Case "Vegetable" .Add "Cabbage" .Add "Onion" Case "Meat" .Add "Pork" .Add "Beef" .Add "Mutton" End Select End With End Sub
Hinweise:
- Ändern Sie im Code die Elemente unter jeder "Case"-Anweisung entsprechend Ihrem Inhalt.
- "ddfood" und "ddCategory" müssen mit den Lesezeichennamen übereinstimmen, die Sie im Dialogfeld "Optionen für Dropdown-Listenfeld" eingegeben haben.
- Speichern Sie den Code und kehren Sie zu Ihrem Dokument zurück.
- Klicken Sie erneut mit der rechten Maustaste auf die erste Dropdown-Liste und wählen Sie "Eigenschaften". Wählen Sie im erscheinenden Dialogfeld "Optionen für Dropdown-Listenfeld" aus der Dropdown-Liste "Beenden" den Makronamen "Populateddfood" aus und klicken Sie auf "OK".
- Klicken Sie auf "Entwickler" > "Bearbeitung einschränken".
- Im Bereich "Bearbeitung einschränken":
- Aktivieren Sie "Nur diese Art von Bearbeitung im Dokument zulassen".
- Wählen Sie "Formulare ausfüllen" aus der Dropdown-Liste.
- Klicken Sie auf "Ja, Schutz durchsetzen starten".
- Legen Sie im Dialogfeld "Schutz durchsetzen starten" ein Passwort fest und klicken Sie auf "OK".
Jetzt ist die abhängige Dropdown-Liste aktiv. Wenn Sie in der ersten Liste "Obst" auswählen, werden nur Obstoptionen in der zweiten Liste angezeigt.

Die besten Produktivitätstools für das Büro
Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...
🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...
🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...
⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...
🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

Die besten Produktivitätstools für das Büro
Kutools für Word – 100+ Werkzeuge für Word
- 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
- 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!