Hallo,

möchte ein Kombinationsfeld horizontal füllen. Im normalen ListFillRange Eigenschaftsfenster scheint das nciht zu funktionieren. oder?? Hab jetzt schon das gefunden:

Private Sub ComboBox1_Change()
ComboBox1.List = Application.Transpose([E11:Y11])
End Sub

Wie bekomm ich jetzt aber den Bezug zu einer anderen Arbeitsmappe in der die Daten stehen??? Gibts noch andere Möglichkeiten das KombiFeld zu füllen???

Danke

Für eine andere Arbeitsmappe kannst du ja das machen:

ok, das hat gefunzt. ein problem gibt es noch: nach verlassen der Arbeitsmappe und neuen öfnnen ist das kominationsfeld leer und nichts vorgewählt bzw die dropdown liste leer, solang bis man per tastatur einen wert eingibt....

Das liegt daran, dass du den Code im Change-Event der ComboBox hast. Der wird nur ausgeführt, wenn man Text in die ComboBox eingibt, genauer gesagt, jedesmal, wenn man einen Buchstaben eintippt und auch, wenn man aus der Dropdown-Liste einen Wert auswählt.

Um von Anfang an die Werte in der ComboBox zu haben, musst du das bei "UserForm_Initialize" reinschreiben:


Dieser Code wird nämlich ausgeführt, wenn man die Form erscheinen lässt, und nur dann.

hmm klappt trotzdem nicht. an anderer stelle, wo ich mit einer userform arbeite klappt es. hier im konkreten fall ist die kombobox direkt din der arbeitsmappe. muss ich statt "UserForm" ComboBox schreiben?? wobei geht auch nciht wirklich

Sorry. Ich hatte angenommen, dass die ComboBox in einer UserForm ist.

Probier mal statt "ComboBox1_Change" "ComboBox1_GotFocus". Dann wird der Code immer ausgeführt, wenn die ComboBox ausgewählt wird.

super, geht. Danke