Ein Kombinationsfeld ist eine Dropdown-Liste, aus der ein Benutzer ein Element auswählen oder seine eigene Wahl treffen kann. Um ein zu erstellen Kombinationsfeld In Excel VBA, führen Sie die folgenden Schritte aus.
1. Klicken Sie auf der Registerkarte Entwicklertools auf Einfügen.
2. Klicken Sie in der Gruppe ActiveX-Steuerelemente auf Kombinationsfeld.
3. Ziehen Sie ein Kombinationsfeld auf Ihr Arbeitsblatt.
Hinweis: Sie können den Namen eines Steuerelements ändern, indem Sie mit der rechten Maustaste auf das Steuerelement klicken (stellen Sie sicher, dass der Designmodus ausgewählt ist) und dann auf Eigenschaften klicken. Vorerst belassen wir ComboBox1 als Name der Combobox.
Erstellen Sie ein Arbeitsmappen-Öffnen-Ereignis. Code, der dem Arbeitsmappen-Öffnungsereignis hinzugefügt wurde, wird von Excel VBA ausgeführt, wenn Sie die Arbeitsmappe öffnen.
4. Öffnen Sie den Visual Basic-Editor.
5. Doppelklicken Sie im Projekt-Explorer auf Diese Arbeitsmappe.
6. Wählen Sie Arbeitsmappe aus der linken Dropdown-Liste und wählen Sie Öffnen aus der rechten Dropdown-Liste.
7. Um Elemente zum Kombinationsfeld hinzuzufügen, fügen Sie dem Workbook Open Event die folgenden Codezeilen hinzu:
Mit Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Ende mit
Hinweis: Verwenden Sie Sheet2, wenn sich Ihr Kombinationsfeld im zweiten Arbeitsblatt befindet, Sheet3, wenn sich Ihr Kombinationsfeld im dritten Arbeitsblatt befindet usw. Wenn Sie diese Codezeilen außerhalb des Workbook Open-Ereignisses verwenden, möchten Sie möglicherweise die folgenden Codezeilen hinzufügen vor diesen Codezeilen. Die erste Codezeile löscht das Kombinationsfeld. Auf diese Weise werden Ihre Elemente nicht mehrmals hinzugefügt, wenn Sie Ihren Code mehr als einmal ausführen. Die zweite Codezeile löscht Ihre eigene Auswahl.
ComboBox1.Clear
ComboBox1.Value = ""
8. Um dieses Kombinationsfeld mit einer Zelle zu verknüpfen, klicken Sie mit der rechten Maustaste auf das Kombinationsfeld (stellen Sie sicher, dass der Designmodus ausgewählt ist) und klicken Sie auf Eigenschaften. Füllen Sie D2 für LinkedCell aus.
Hinweis: Siehe auch die ListFillRange-Eigenschaft, um ein Kombinationsfeld mit einem Zellbereich zu füllen.
9. Speichern, schließen und öffnen Sie die Excel-Datei erneut.
Ergebnis:
Obwohl es in einigen Situationen nützlich sein kann, ein Kombinationsfeld direkt auf Ihrem Arbeitsblatt zu platzieren, ist ein Kombinationsfeld besonders nützlich, wenn es in einem Benutzerformular platziert wird.
