Office: Combobox (Kombinationsfeld) im Tabellenblatt mit VBA

Hallo,

es wäre super, wenn mir jemand bei diesem (vielleicht nicht ganz trivialen Problem) behilflich sein könnte:

Excel 2016, Win 7:
Ich möchte eine Combobox in einem Tabellenblatt mittels VBA füllen.
Auf einer Userform ist das kein Problem, auf einem Tabellenblatt funktioniert es aber nicht.

So gehe ich vor:
Ich setzte das Formularsteuerelement "Kombinationsfeld" in das Tabellenblatt und wähle es aus, um mir im Zelladressfeld den Namen anzeigen zu lassen. In meinem Fall: "Dropdown 68"

Folgendes Makro im Tabellenblatt...
Code:

...bringt den "Fehler 424 - Objekt erforderlich"

Das folgende Makro in einem Modul bringt den Fehler...

Code:

..."Fehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht."

Und auch der Umweg...

Code:

...bringt einen Fehler, namentlich beim Kompilieren: "Methode oder Datenobjekt nicht gefunden. (bezogen auf Dropdown68)"

Zur Vollständigkeit: Ich weiß, dass man eine ComboBox im Tabellenblatt auch ohne VBA füllen kann - dies ist jedoch auf Grund der übergeordneten Programmstruktur nicht möglich).

Es wäre super, wenn jemand Rat wüsste! Ich gehe davon aus, dass es etwas mit dem Objektnamen zu tun hat...

Beste Grüße aus Wiesbaden!

Andreas

:)

 

Hallo Andreas,

Du benutzt Eigenschaften von AxctiveXSteuerelemente ich vermute bei Formular sind es andere.
Ich bin nicht der Fachmann für Formular.

 

Hallo Andreas, *Smilie

Bei Kombinationsfelder ist es statt ".List" dann ".ListFillRange". *wink.gif*

Servus
Case

 

Hi Andreas,

bei einem Formular-Kombinationsfeld wird der Zellbereich nicht als Range sondern als Zellbereichs-Adresse direkt der Eigenschaft ListFillRange zugewiesen:

Code:

 

Hallo Ihr Drei,

vielen, vielen Dank für Eure Antworten!

Sowohl

Code:

als auch

Code:

funktionieren einwandfrei.
Der Knackpunkt lag neben dem "ListFillRange" also am "DropDowns("Dropdown 1")".
Ich hatte ja versucht, die ComboBox direkt über ".Dropdown1" anzusprechen.

Daher besonderen Dank an Beverly für den Codeschnipsel!*top

Eine schöne Woche wünscht

Andreas