Wie füge ich eine farbcodierte Dropdown-Liste in eine Word-Tabelle ein?

Autor: Xiaoyang Letzte Änderung: 2025-04-17

Angenommen, Sie haben eine Tabelle in Ihrem Word-Dokument und möchten nun eine farbcodierte Dropdown-Liste in eine 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:

Demo, die die Farbänderung einer Zelle zeigt, wenn ein Element aus der Dropdown-Liste ausgewählt wird

Fügen Sie mit VBA-Code eine farbcodierte Dropdown-Liste in ein Word-Dokument ein

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 das Dropdown-Menü einfügen möchten, und klicken Sie dann auf „Entwickler“ > „Inhaltssteuerung für Dropdown-Liste“.
Hinweis: Wenn die Registerkarte „Entwickler“ nicht im Menüband angezeigt wird, besuchen Sie: So zeigen Sie die Registerkarte „Entwickler“ im Word-Menüband an.
Das Dropdown-Menü wird in die entsprechende Zelle eingefügt. Klicken Sie anschließend auf „Entwickler“ > „Eigenschaften“.

In eine bestimmte Zelle eingefügtes Dropdown-Menü mit hervorgehobener Option „Eigenschaften“

Gehen Sie im Dialogfeld „Eigenschaften des Inhaltssteuerelements“ wie folgt vor:
1. Geben Sie den Titelnamen in das Textfeld „Titel“ ein.
2. Klicken Sie auf die Schaltfläche „Hinzufügen“, um das Dialogfeld „Auswahl hinzufügen“ zu öffnen.
3. Geben Sie das Dropdown-Listenelement in das 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 kopieren und in andere Zellen einfügen.
Runter halten ALT + F11 um das Fenster „Microsoft Visual Basic für Applikationen“ zu öffnen.

Doppelklicken Sie im Fenster „Microsoft Visual Basic für Applikationen“ im Bereich „Projekt“ auf „ThisDocument“, um das Modul zu öffnen. Kopieren Sie anschließend den folgenden Code und fügen Sie ihn 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, "Status" ist der Titelname, der beim Erstellen der Dropdown-Liste verwendet wurde, und "Complete", "In Progress" und "Not Start" sind die Elemente. Sie können diese Werte und die entsprechenden Farben nach Bedarf ändern.

VBA-Fenster mit ausgewähltem ThisDocument, das Code anzeigt, der in das leere Modul eingefügt wurde

Speichern und schließen Sie das Codefenster. Wenn Sie nun ein Element aus der Dropdown-Liste auswählen, wird die Zelle mit der entsprechenden Farbe gefüllt.

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools AI-Funktionen: AI-Assistent / Echtzeit-Assistent / Super Polish (Format beibehalten) / Super Translate (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen...

📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelkonvertierung in PDF...

✏ Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Größe aller Bilder ändern / Vertauschen Sie Tabellenzeilen und -spalten / Tabelle in Text konvertieren...

ðŸ§¹ Mühelose Reinigung: Wegfegen Zusätzliche Räume / Abschnittswechsel / Textfelder / Hyperlinks / Weitere Werkzeuge zum Entfernen finden Sie im Entfernen Gruppe...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen / Kontrollkästchen / Radio Knöpfe / QR Code / Strichcode / Mehrere Bilder / Mehr erfahren Sie im Insert Gruppe...

🔍 Präzise Auswahl: Punktgenau Spezifische Seiten / Tische / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit mehr Tag auswählen Funktionen...

⭐ Star-Verbesserungen: Navigieren Sie zu einem beliebigen Ort / Sich wiederholenden Text automatisch einfügen / Zwischen Dokumentfenstern wechseln / 11 Umwandlung (Conversion) Werkzeuge...

🌍 Unterstützt über 40 Sprachen: Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

Registerkarten „Kutools“ und „Kutools Plus“ auf der Word-Multifunktionsleiste

👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀

Kostenlos herunterladen Direkt kaufen Erfahren Sie mehr über Kutools für Word

Beste Office-Produktivitätstools

Kutools for Word - Über 100 Tools für Word

🤖 Kutools AI-Funktionen: AI-Assistent / Echtzeit-Assistent / Superpolitur / Super Translate / KI-Redaktion / KI-Korrekturlesen
📘 Dokumentenbeherrschung: Seiten teilen / Dokumente zusammenführen / Stapelkonvertierung in PDF
✏ Inhaltsbearbeitung: Batch suchen und ersetzen / Größe aller Bilder ändern
ðŸ§¹ Mühelose Reinigung: Entfernen Sie zusätzliche Leerzeichen / Abschnittsbrüche entfernen
➕ Kreative Einsätze: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
🌍 Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – über 40 Sprachen werden unterstützt!

Kostenlos herunterladen Direkt kaufen Erfahren Sie mehr über Kutools