Wie fülle ich das Kombinationsfeld mit Daten des benannten Bereichs in Excel?
Sie können ein Kombinationsfeld (ActiveX-Steuerelement) mit Daten eines bestimmten Bereichs angeben, indem Sie den Bereich zu den ListFillRange-Eigenschaften des Kombinationsfelds hinzufügen. Aber wissen Sie, wie Sie ein Kombinationsfeld mit Daten eines benannten Bereichs in Excel füllen? Sie haben beispielsweise einen Zellbereich in Ihrem Arbeitsblatt benannt und müssen diesen Bereichsnamen jetzt in einem Kombinationsfeld angeben. Wenn Sie den Bereichsnamen in einem Kombinationsfeld auswählen, werden alle Zellenwerte in diesem benannten Bereich automatisch in ein anderes Kombinationsfeld eingefügt. In diesem Artikel wird eine VBA-Methode zur Lösung dieses Problems vorgestellt.
Füllen Sie das Kombinationsfeld mit Daten eines benannten Bereichs mit VBA-Code
Füllen Sie das Kombinationsfeld mit Daten eines benannten Bereichs mit VBA-Code
Gehen Sie wie folgt vor, um das Kombinationsfeld mit Daten eines benannten Bereichs in Excel zu füllen.
1. Bitte wählen Sie die gesamten Überschriften (in diesem Fall A1: E1) in Ihrem Arbeitsblatt aus und geben Sie einen Namen in das ein Namensfeld wie unten Screenshot gezeigt.
2. Wählen Sie alle Spaltendaten mit Ausnahme der Überschrift aus und benennen Sie die Spalte separat in der Namensfeld. Siehe Screenshot:
In diesem Fall habe ich den Bereich A2: A8, B2: B8, C2: C8, D2: D8 und E2: E8 separat als Datum, Geschäft, Artikel, Verkauf und Wochentag benannt.
3. Fügen Sie dann ein Kombinationsfeld ein, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Kombinationsfeld (ActiveX-Steuerung). 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 Registerkarte Blatt, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
6. In der Öffnung Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Füllen Sie das Kombinationsfeld mit Daten eines benannten Bereichs
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 Sub
Note: Im Code ist ComboBox1 der Name des Kombinationsfelds, in dem Sie alle Bereichsnamen auflisten, und ComboBox2 ist der Name des Kombinationsfelds, in das die Daten des angegebenen benannten Bereichs eingefügt werden. „Header“ ist der Bereichsname, den Sie in Schritt 1 erstellt haben.
7. Schalten Sie den Entwurfsmodus aus, indem Sie auf klicken Entwickler:in / Unternehmen > Entwurfsmodus.
8. Klicken Sie auf eine beliebige Zelle im Arbeitsblatt, um den Code zu aktivieren. Klicken Sie im ersten Kombinationsfeld auf die Pfeilschaltfläche. Sie können sehen, dass alle benannten Bereiche darin aufgelistet sind. Siehe Screenshot:
Wenn Sie im ersten Kombinationsfeld einen benannten Bereich auswählen, werden die entsprechenden Zelldaten im zweiten Kombinationsfeld ausgefüllt, wie im folgenden Screenshot gezeigt:
Erstellen Sie einfach eine Dropdown-Liste mit Kontrollkästchen in Excel:
Das Dropdown-Liste mit Kontrollkästchen Nutzen von Kutools for Excel Sie können auf einfache Weise eine Dropdown-Liste mit Kontrollkästchen in einem bestimmten Bereich, einem aktuellen Arbeitsblatt, einer aktuellen Arbeitsmappe oder allen geöffneten Arbeitsmappen erstellen, die Ihren Anforderungen entsprechen.
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)
In Verbindung stehende Artikel:
- Wie kopiere ich den Kombinationsfeldwert in eine aktive Zelle in Excel?
- Wie zeige ich das Datumsformat in der Kombinationsfeldausgabe in Excel an?
- Wie kann ich die Eingabe in ein Kombinationsfeld in Excel verhindern oder deaktivieren?
- Wie fülle ich ein Kombinationsfeld mit den angegebenen Daten in der geöffneten Arbeitsmappe?
- Wie fülle ich andere Zellen automatisch aus, wenn ich Werte in der Excel-Dropdown-Liste auswähle?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!