Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Eingabebereich im Kombinationsfeld horizontal füllen

608 views
Skip to first unread message

Clemenza

unread,
Aug 29, 2008, 9:12:17 AM8/29/08
to
Hallo zusammen,

ist es möglich, den Eingabebereich in einem Kombinationsfeld
horizontal, also mit einer Zeile, und nicht mit einer Spalte zu
füllen?

Danke + Gruß,
Clemens

PS: Ach ja: wenn ja, wie geht das? :-)

Peter Schleif

unread,
Aug 29, 2008, 9:23:16 AM8/29/08
to
Clemenza schrieb am 29.08.2008 15:12 Uhr:
>
> ist es möglich, den Eingabebereich in einem Kombinationsfeld
> horizontal, also mit einer Zeile, und nicht mit einer Spalte zu
> füllen?

ComboBox1.List = Application.Transpose([A1:E1])

Peter

Clemenza

unread,
Aug 29, 2008, 9:51:41 AM8/29/08
to


Danke, das klappt schonmal. Allerdings sind noch alle Werte in der
Combobox markiert und ich kann mir keinen einzelnen aussuchen. Dazu
Ideen?

Clemens

Peter Schleif

unread,
Aug 29, 2008, 10:54:32 AM8/29/08
to
Clemenza schrieb am 29.08.2008 15:51 Uhr:
>
> Danke, das klappt schonmal. Allerdings sind noch alle Werte in der
> Combobox markiert und ich kann mir keinen einzelnen aussuchen. Dazu
> Ideen?

Neee. Wieso sind alle markiert?

Poste am besten mal deinen Code.

Peter

Clemenza

unread,
Sep 1, 2008, 3:06:20 AM9/1/08
to


In der Combobox stehen ja normalerweise alle Werte zur Auswahl
untereinander. Bei mir stehen alle Werte nebeneinander in einer Zeile
und sind daher alle markiert. Auswählen kann ich keinen Wert einzeln.
Der Code:

Private Sub ComboBox1_Change()


ComboBox1.List = Application.Transpose([A1:E1])

End Sub


Clemens

Peter Schleif

unread,
Sep 1, 2008, 3:25:20 AM9/1/08
to
Clemenza schrieb am 01.09.2008 09:06 Uhr:
>
> Private Sub ComboBox1_Change()
> ComboBox1.List = Application.Transpose([A1:E1])
> End Sub

Du hast den Befehl lediglich im falschen Ereignis stehen.
ComboBox1_Change wird aufgerufen, wenn ein neuer Wert ausgewählt wird.
Das _Füllen_ macht man überlicherweise beim Initialisieren der Form.

Peter

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose([A1:E1])
End Sub

Clemenza

unread,
Sep 1, 2008, 3:47:56 AM9/1/08
to


klappt leider immer noch nicht... VBA zählt leider nicht gerade zu
meinen Steckenpferden... Ich werde mal noch ein bisschen daran
herumbasteln.
Danke+Gruß

Peter Schleif

unread,
Sep 1, 2008, 4:39:57 AM9/1/08
to
Clemenza schrieb am 01.09.2008 09:47 Uhr:
>
> klappt leider immer noch nicht... VBA zählt leider nicht gerade zu
> meinen Steckenpferden

Hast Du UserForm_Initialize jetzt vielleicht zweimal im Code?

Vermutlich ist es nur ein winziges Problem. Lade die Mappe doch mal
irgendwo hoch, falls die Sensibilität der Daten es zuläßt.

Peter

0 new messages