(Tipp 403)
Wie kann ich ein Kombinationsfeld füllen und den gewählten Wert an eine Zelle übergeben?
Es geht um das ActiveX-Kombinationsfeld auf einem Tabellenblatt:
- In den Entwurfsmodus schalten
- mit rechts auf das Kombinationsfeld klicken
- Eigenschaften auswählen
- bei ListFillRange den Bereich eintragen, z. B. F5:F10
- Doppelklick auf die Box
- Im Modul den folgenden Code einfügen, den danach anpassen, speichern und den Editor schlie�en.
Private Sub ComboBox1_Change() Range("A1") = ComboBox1.Text End Sub