Wie fügt man eine farbkodierte Dropdown-Liste in eine Word-Tabelle ein?

Angenommen, Sie haben eine Tabelle in Ihrem Word-Dokument und möchten nun eine farbkodierte Dropdown-Liste in eine Spalte dieser Tabelle einfügen – sodass beim Auswählen einer Option aus der Dropdown-Liste die Zellenfarbe automatisch auf Rot wechselt, während bei einer anderen Option die Farbe auf Grün umschaltet, wie in der folgenden Abbildung dargestellt:

Farbkodierte Dropdown-Liste in Word-Dokument mithilfe von VBA-Code einfügen

Die folgenden Schritte führen Sie durch das Einfügen einer Dropdown-Liste in eine Tabellenzelle und das Anwenden von Hintergrundfarbe auf die Zelle basierend auf dem ausgewählten Element:

1. Wählen Sie eine Zelle in der Tabelle aus, in die Sie die Dropdown-Liste einfügen möchten, und klicken Sie dann auf „Entwickler“ > „Dropdown-Listen-Inhaltssteuerelement“.

   Hinweis: Wenn Sie die Registerkarte „Entwickler“ im Menüband nicht sehen, besuchen Sie: So zeigen Sie die Registerkarte „Entwickler“ im Word-Menüband an.

   

2. Die Dropdownliste wird in die jeweilige Zelle eingefügt. Anschließend klicken Sie auf „Entwickler“ > „Eigenschaften“.



3. Führen Sie im Dialogfeld „Eigenschaften des Inhaltssteuerelements“ Folgendes aus:
   1. Geben Sie den gewünschten 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 Element der Dropdown-Liste in das Textfeld „Anzeigename“ ein.

      

4. Wiederholen Sie Schritt 3, um bei Bedarf weitere Elemente zur Dropdown-Liste hinzuzufügen.
5. Nachdem Sie die erste Dropdown-Liste erstellt haben, können Sie sie in andere Zellen kopieren und einfügen.

   

6. Halten Sie ALT + F11 gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
7. Doppelklicken Sie im Fenster „Microsoft Visual Basic for Applications“ 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 ist „Status" der Titelname, der beim Erstellen der Dropdown-Liste verwendet wird, und „Complete", „In Progress" sowie „Not Start" sind die Listenelemente. Sie können diese Werte und die zugehörigen Farben ganz nach Ihren Wünschen anpassen.

   

8. Schließen Sie das Codefenster. Sobald Sie nun ein Element aus der Dropdown-Liste auswählen, wird die entsprechende Farbe in die Zelle eingefügt.

   

Beste Office-Produktivitätswerkzeuge

Kutools für Word – Verbessern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖KUTOOLS KI-Funktionen: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI-Korrekturlesen …

📘Dokument-Meisterschaft: Seiten aufteilen, Dokumente zusammenführen, Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML …), stapelweise in PDF konvertieren …

✏Inhaltsbearbeitung: Stapelweises Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren – Zeilen und Spalten tauschen / Tabelle in Text umwandeln …

🧹Mühelose Bereinigung: Fegen Sie überflüssige Leerzeichen/Abschnittsumbruch/Textfeld/Hyperlinks/ Weitere Entfernungs-Werkzeuge finden Sie in der EntfernenGruppe …

➕Kreative Einfügungen: Fügen Sie Tausendertrennzeichen/Kontrollkästchen/Optionsfeld/QR-Code/Strichcode/Mehrere Bilder/ Weitere Funktionen finden Sie in der Einfügen-Gruppe …

🔍Präzisionsauswahl: Wählen Sie gezielt bestimmte Seiten, Tabellen, Formen oder Überschriftenabsätze aus – und verbessern Sie Ihre Navigation mit weiteren Auswählen-Funktionen …

⭐Hervorragende Erweiterungen: Zu beliebigen Positionen navigieren / Wiederkehrenden Text automatisch einfügen / Zwischen Dokumentenfenstern wechseln / 11 Konvertierungswerkzeuge Konvertierungs- …

🌍Unterstützt über 40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – mit Unterstützung für Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über 40 weitere!

 

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

Office Tab– Bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

• Aktivieren Sie die tabbasierte Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters – statt in separaten Fenstern.
• Steigert Ihre Produktivität um 50 % und spart Ihnen täglich Hunderte von Mausklicks!

Kostenlos herunterladen     Jetzt kaufen     Weitere Informationen

 

---

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Werkzeuge!

Enthält Office Tab Pro·Kutools für Excel·Kutools für Outlook·Kutools für Word·Kutools for PowerPoint

📦 Alle 5 Werkzeuge in einem Paket erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Zeit sparen und sofort die Produktivität steigern

⬇️ Jetzt herunterladen🎁 Das vollständige Paket kaufen📖 Weitere Informationen

Beste Office-Produktivitä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
• 📘Dokument-Meisterschaft:Seiten aufteilen/Dokumente zusammenführen/Stapelweise in PDF konvertieren
• ✏Inhaltsbearbeitung:Stapelweise Suchen und Ersetzen/Alle Bilder skalieren
• 🧹Mühelose Bereinigung:Überflüssige Leerzeichen entfernen/Abschnittsumbruch entfernen
• ➕Kreative Einfügungen:Tausendertrennzeichen einfügen/Kontrollkästchen einfügen/QR-Code erstellen
• 🌍Unterstützt über 40 Sprachen: Kutools spricht Ihre Sprache – mit Unterstützung für über 40 Sprachen!

Kostenlos herunterladenJetzt kaufenWeitere Informationen zu Kutools