Einzelne Einträge einer ComboBox ausgeben

[excl50]

Hallo zusammen,

ich habe einer Combobox Werte zugewiesen über RowSource. Nun möchte ich auf einzelne Einträge der ComboBox zugreifen.

Mein Versuch:

Range("C1").Value = UserForm1.ComboBox1.ListIndex = 1

Es wird aber nur FALSCH geliefert.


Vielen Dank !

[RPP63]

Moin!
x=y=1 bedeutet:
Löse den Vergleich y=1 auf (in Deinem Fall false, weil der Listindex wahrscheinlich -1 ist)
und weise x das Ergebnis des Vergleichs zu.
Insofern ist FALSCH korrekt!

Du kennst doch den Bereich (siehe RowSource)!
Dann durchschleife doch einfach die Zellen des Bereichs.

Gruß Ralf

[Frogger1986]

das geht so..

Code:

Private Sub ComboBox1_Change()

Sheets(1).Range("D1") = Me.ComboBox1.List(1, 0)

End Sub

 die 1 ist der Rowindex und die 0 der Columnindex

[RPP63]

@Frogger:
so geht es eben nicht …
Dein Code gibt IMMER den ersten Eintrag zurück, egal was ausgewählt wurde!
Wenn _Change, dann Rückgabe der .Text oder .Value-Eigenschaft

Gruß Ralf

[Frogger1986]

Ich dachte das wollte der TE..

wenn's nur die Auswahl sein sollte dann:

Sheets(1).Range("A1").value = me.combobox1.value

Ps.: Ich vergesse immer die Eigenschaften dahinter..

oder hab ich das jetzt falsch verstanden??