Wie füllt man ein Kombinationsfeld in Excel mit Daten aus einem benannten Bereich?
Sie können einem Kombinationsfeld (ActiveX-Steuerelement) Daten aus einem bestimmten Bereich zuweisen, indem Sie diesen Bereich in die ListFillRange-Eigenschaft des Kombinationsfelds eintragen. Doch wissen Sie auch, wie man ein Kombinationsfeld mit Daten eines benannten Bereichs in Excel befüllt? Angenommen, Sie haben einen Zellbereich in Ihrem Arbeitsblatt benannt und möchten nun diesen Namen einem Kombinationsfeld zuweisen – sodass beim Auswählen dieses Namens automatisch alle Werte des zugehörigen benannten Bereichs in einem anderen Kombinationsfeld angezeigt werden. Dieser Artikel stellt eine VBA-Methode vor, um genau das zu erreichen.
Kombinationsfeld mit Daten eines benannten Bereichs mithilfe von VBA-Code befüllen
Kombinationsfeld mit Daten eines benannten Bereichs mithilfe von VBA-Code befüllen
Befüllen Sie ein Kombinationsfeld in Excel ganz einfach mit Daten aus einem benannten Bereich – so geht’s:
1. Markieren Sie alle Überschriften (in diesem Fall wähle ich A1:E1) in Ihrem Arbeitsblatt und geben Sie dann einen Namen in das Namensfeld ein, wie im folgenden Screenshot gezeigt.
2. Wählen Sie jeweils die Spaltendaten ohne die Überschrift aus und benennen Sie jede Spalte einzeln im Namensfeld. Siehe Screenshot:
In diesem Beispiel habe ich die Bereiche A2:A8, B2:B8, C2:C8, D2:D8 und E2:E8 jeweils mit den Namen „Datum“, „Geschäft“, „Artikel“, „Umsatz“ und „Wochentag“ versehen.
3. Fügen Sie anschließend ein Kombinationsfeld ein, indem Sie auf Entwickler > Einfügen > Kombinationsfeld (ActiveX-Steuerelement) klicken. Siehe Screenshot:
4. Wiederholen Sie Schritt 3, um ein weiteres Kombinationsfeld in das Arbeitsblatt einzufügen.
5. Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
6. Fügen Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen den folgenden VBA-Code in das Codefenster ein.
VBA-Code: Kombinationsfeld mit Daten eines benannten Bereichs befüllen
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End SubHinweis: Im Code ist ComboBox1 der Name des Kombinationsfelds, in dem alle Zellennamen aufgelistet werden, und ComboBox2 der Name des Kombinationsfelds, in das die Daten des angegebenen benannten Bereichs eingefügt werden. „Headers“ ist der Zellenname, den Sie in Schritt 1 erstellt haben.
7. Deaktivieren Sie den Entwurfsmodus, indem Sie auf Entwickler > Entwurfsmodus klicken.
8. Klicken Sie auf eine beliebige Zelle im Arbeitsblatt, um den Code zu aktivieren. Sobald Sie auf die Pfeil-Schaltfläche im ersten Kombinationsfeld klicken, werden alle benannten Bereiche darin angezeigt. Siehe Screenshot:
Beim Auswählen eines benannten Bereichs im ersten Kombinationsfeld werden die entsprechenden Zelldaten wie im folgenden Screenshot gezeigt im zweiten Kombinationsfeld angezeigt:
Erstellen Sie mühelos Dropdown-Liste mit Kontrollkästchen in Excel:
Mit dem Kontrollkästchen zur Dropdown-Liste hinzufügen-Tool von Kutools für Excel erstellen Sie mühelos Dropdown-Listen mit Kontrollkästchen – ganz nach Ihren Anforderungen in einem begrenzten Bereich, im aktuellen Arbeitsblatt, in der aktuellen Arbeitsmappe oder in allen geöffneten Arbeitsmappen.
Laden Sie es jetzt herunter und testen Sie es! (30-tägige kostenlose Testversion)
Verwandte Artikel:
- Wie überträgt man den Wert eines Kombinationsfelds in die aktive Zelle in Excel?
- Wie lässt sich das Datumsformat in der Anzeige eines Kombinationsfelds in Excel korrekt darstellen?
- Wie verhindert oder deaktiviert man die Texteingabe in einem Kombinationsfeld in Excel?
- Wie füllt man ein Kombinationsfeld beim Öffnen der Arbeitsmappe mit vorgegebenen Daten?
- Wie lassen sich andere Zellen automatisch ausfüllen, sobald ein Wert aus einer Dropdown-Liste in Excel ausgewählt wird?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins