Ein Listenfeld ist eine Liste, aus der ein Benutzer ein Element auswählen kann. Um ein zu erstellen Listenfeld 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 Listenfeld.
3. Ziehen Sie ein Listenfeld 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. Für den Moment belassen wir ListBox1 als Namen der Listbox.
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 Listenfeld hinzuzufügen, fügen Sie dem Arbeitsmappen-Öffnen-Ereignis die folgenden Codezeilen hinzu:
Mit Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Ende mit
Hinweis: Verwenden Sie Sheet2, wenn sich Ihr Listenfeld im zweiten Arbeitsblatt befindet, Sheet3, wenn sich Ihr Listenfeld im dritten Arbeitsblatt befindet usw. Wenn Sie diese Codezeilen außerhalb des Workbook Open-Ereignisses verwenden, möchten Sie möglicherweise die folgende Codezeile hinzufügen vor diesen Codezeilen. Diese Codezeile löscht das Listenfeld. Auf diese Weise werden Ihre Elemente nicht mehrmals hinzugefügt, wenn Sie Ihren Code mehr als einmal ausführen.
ListBox1.Clear
8. Um dieses Listenfeld mit einer Zelle zu verknüpfen, klicken Sie mit der rechten Maustaste auf das Listenfeld (stellen Sie sicher, dass der Entwurfsmodus ausgewählt ist) und klicken Sie auf Eigenschaften. Füllen Sie D3 für LinkedCell aus.
Hinweis: Siehe auch die ListFillRange-Eigenschaft, um ein Listenfeld mit einem Zellbereich zu füllen.
9. Speichern, schließen und öffnen Sie die Excel-Datei erneut.
Ergebnis:
Obwohl es in manchen Situationen nützlich sein kann, ein Listenfeld direkt auf Ihrem Arbeitsblatt zu platzieren, ist ein Listenfeld besonders nützlich, wenn es in einem Benutzerformular platziert wird.
