userform "ComboBox"

Question

Hallo,

ich habe in einer userform eine Combobox und möchte, dass in dieser eine Liste von möglichen Einträgen (so wie "Gültigkeit" im Excel) aus dem zugehörigen Sheet "A1:A20" angezeigt werden. Habe wenig Ahnung mit der userform...Hat jemand einen TiPP?
Oder geht das vielleicht mit einem anderen Feld besser?

Answer 1

schreibe den Bereich bei RowSource ein.

Gruß Hajo

Answer 2

Hallo,

was Hajo meint ist folgendes:

With UserForm1.ListBox1
.RowSource = "Tabelle1!A1:A20"
.ListIndex = 0
End With

Den Namen der Tabelle - und ggf. der Userform und Listbox - musst du natürlich noch entsprechend anpassen.

Gruß

M.O.

Answer 3

..reicht das so?

Private Sub ComboBox1_Change()
Sheets("Haushalt").Activate
RowSource ("A6:A65")
End Sub

Answer 4

das meinte ich nicht, es gibt auch Eigenschaften, wo man das eintragen kann.

Gruß Hajo

Answer 5

die Tabelle hat diese Eigenschaften nicht.

Gruß Hajo

Answer 6

Hallo M.O.

ich habe jetzt bei der Listbox 1 folgenden Code hinterlegt:

Private Sub ListBox1_Click()
Sheets("Haushalt").Activate
With UserForm1.ListBox1
.RowSource = "Haushalt!A1:A20"
.ListIndex = 0
End With
End Sub

...es passiert aber leider nichts, d.h. die Einträge aus A1:A20 werden nicht gezeigt?

Answer 7

das passiert nicht da Du kleine auswählst. Du kannst keine auswählen da keiner angezeigt wird.
Benutze das Actvate Ereignis der Userform oder wie vorgeschlagen die Eigenschaften.

Hruß Hajo

Answer 8

das passiert nicht da Du kleine auswählst. Du kannst keine auswählen da keiner angezeigt wird.
Benutze das Actvate Ereignis der Userform oder wie vorgeschlagen die Eigenschaften.

Gruß Hajo

Answer 9

Hallo Andreas,

ich nehme mal an, dass du die Userform über einen Button aufrufst. In diesen Code ergänzt du dann entsprechend.

Beispiel:

Sub userform_start()

With UserForm1.ListBox1
.RowSource = "Haushalt!A1:A20"
.ListIndex = 0
End With

UserForm1.Show

End Sub

Gruß

M.O.

Answer 10

Hallo Hajo,

jetzt weiß ich erst wie du das meinst. Ich hatte keine Ahnung, dass es diese Option bei den Eigenschaften überhaupt gibt (aber leider nur für rows oder auch für columns?). Zumindest dieses Listfeld funktioniert jetzt. Danke.