Wie fügt man eine farbcodierte Dropdown-Liste in einer Word-Tabelle ein?
Angenommen, Sie haben eine Tabelle in Ihrem Word-Dokument und möchten nun eine farbcodierte Dropdown-Liste in einer Spalte der Tabelle einfügen. Das bedeutet, wenn Sie eine Option aus der Dropdown-Liste auswählen, wird die Zellenfarbe rot, und wenn Sie eine andere auswählen, wird die Zellenfarbe grün, wie im folgenden Screenshot gezeigt:

Farbcodierte Dropdown-Liste in einem Word-Dokument mit VBA-Code einfügen
Die folgenden Schritte führen Sie durch das Einfügen einer Dropdown-Liste in eine Tabellenzelle und das Anwenden einer Hintergrundfarbe auf die Zelle basierend auf dem ausgewählten Element:
- Wählen Sie eine Zelle in der Tabelle aus, in die Sie die Dropdown-Liste einfügen möchten, und klicken Sie dann auf „Entwicklertools“ > „Dropdown-Listen-Inhaltssteuerelement“.
Hinweis: Wenn Sie die Registerkarte „Entwicklertools“ in der Symbolleiste nicht sehen, besuchen Sie: Wie zeigt man die Entwicklertools-Registerkarte im Word-Menüband an.
- Die Dropdown-Liste wird in die spezifische Zelle eingefügt. Klicken Sie dann auf „Entwicklertools“ > „Eigenschaften“.
- Führen Sie im Dialogfeld „Eigenschaften des Inhaltssteuerelements“ Folgendes aus:
- Geben Sie den Titelnamen im Textfeld „Titel“ ein.
- Klicken Sie auf die Schaltfläche „Hinzufügen“, um das Dialogfeld „Auswahl hinzufügen“ zu öffnen.
- Geben Sie das Dropdown-Listenelement im Textfeld „Anzeigename“ ein.
- Wiederholen Sie Schritt 3, um bei Bedarf weitere Dropdown-Listenelemente einzufügen.
- Nachdem Sie die erste Dropdown-Liste erstellt haben, können Sie sie in andere Zellen kopieren und einfügen.
- Halten Sie ALT + F11 gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
- Doppelklicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „ThisDocument“ im Bereich „Projekt“, um das Modul zu öffnen. Kopieren und fügen Sie dann den folgenden Code in das leere Modul ein:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) With ContentControl.Range If ContentControl.Title = "Status" Then Select Case .Text Case "Complete" .Cells(1).Shading.BackgroundPatternColor = wdColorRed Case "In Progress" .Cells(1).Shading.BackgroundPatternColor = wdColorGreen Case "Not Start" .Cells(1).Shading.BackgroundPatternColor = wdColorBlue Case Else .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic End Select End If End With End Sub
Hinweis: Im obigen Code ist „Status“ der Titelname, der beim Erstellen der Dropdown-Liste verwendet wurde, und „Abgeschlossen“, „In Bearbeitung“ und „Nicht gestartet“ sind die Elemente. Sie können diese Werte und die entsprechenden Farben bei Bedarf ändern.
- Speichern und schließen Sie das Codefenster. Jetzt wird beim Auswählen eines Elements aus der Dropdown-Liste die entsprechende Farbe die Zelle füllen.

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