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.

Beste Büroproduktivitätswerkzeuge
Kutools für Word - Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!
🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise in PDF konvertieren...
✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Zeilen und Spalten der Tabelle transponieren / Tabelle in Text umwandeln...
🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfelder / Hyperlinks / Für weitere Entfernungstools gehen Sie zur Entfernen-Gruppe...
➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie mehr in der Einfügen-Gruppe...
🔍 Präzise Auswahlen: Bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Auswahlfunktionen ...
⭐ Sterneverbesserungen: Zu jedem Standort navigieren / Automatisches Einfügen von wiederholtem Text / Wechsel zwischen Dokumentfenstern /11 Konvertierungswerkzeuge...

Beste Büroproduktivitätswerkzeuge
Kutools für Word - 100+ Werkzeuge für Word
- 🤖 Kutools AI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
- 📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise in PDF konvertieren
- ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
- 🧹 Müheloses Reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
- ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen