Herbers Excel-Forum - das Archiv

Combobox füllen?!?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ ComboBox ⇒ UserForm
Bild

Betrifft: Combobox füllen?!?
von: Martin
Geschrieben am: 29.11.2003 16:18:58
Hallo,

ich hänge fest! Warum funktioniert folgender Code nicht?



Private Sub UserForm_Initialize()
Dim i As Range
Set i = Sheets("data").Range("A2:" & Range("A2").End(xlDown).Address)
ComboBox1.RowSource = i
End Sub


Mein Problem ist, dass die Quelle regelmässig anwächst, deshalb kann ich keinen festen Bereich angeben.

Gruss,
Martin
Bild

Betrifft: AW: Combobox füllen?!?
von: Nepumuk
Geschrieben am: 29.11.2003 16:27:11
Hallo Martin,
weil i nicht die Adresse die von RowSource verlangt wird, sondern das Range - Objekt selbst zurückgibt. So sollte es funktionieren:
ComboBox1.RowSource = i.Address
Du kannst es kürzen, indem du:
ComboBox1.RowSource = Sheets("data").Range("A2:" & Range("A2").End(xlDown).Address).Address
angibst.
Gruß
Nepumuk
Bild

Betrifft: Danke Nepumuk
von: Martin
Geschrieben am: 29.11.2003 16:30:48
es funktioniert.

Gruss,
Martin
Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Combobox füllen?!?"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox