AddItem - Werte in ComboBox eintragen

[Büroklammer]

Hallo,

ich muss in meiner ComboBox1 Werte eintragen. Also so etwas:

Code:

With ComboBox1
.AddItem Range("A1") & Range("B1") & Range("C1") & Range("D1") & Range("E1") & Range("F1")
End With

Ihr seht schon das Problem. So etwas wie  Range("A1:F1") geht nicht. Gibt es
einen effizienteren Weg die Werte einzutragen als in meinem Code?

[RPP63]

So etwas wie  Range("A1:F1") geht nicht.

Moin!
Oh doch!  :19:

Code:

ComboBox1.List = WorksheetFunction.Transpose(Range("A1:F1").Value)

Gruß Ralf

[Büroklammer]

@Ralf
vielen Dank für Deine Hilfe. Das bringt mich schon mal weiter.

Aber was macht man, wenn man einen "Abstandshalter", also Leerzeichen dazwischen setzen möchte?

wie so etwas:

Code:

.AddItem Range("A1") & " " & Range("B1") & " " & Range("C1") & " " & Range("D1") & " " & Range("E1") & " " & Range("F1")

[RPP63]

Wie meinen?
Willst Du die Values der Zellen nebeneinander (getrennt durch ein Leerzeichen) als ein Item im Dropdown stehen haben?

[snb]

Code:

ComboBox1.list=sheets(1).Range("A1:F10").value
combobox1.columncount=ubound(combobox1.list,2)+1

[schauan]

Hallöchen,

wenn das
ComboBox1.List = WorksheetFunction.Transpose(Range("A1:F1").Value)
den Fragesteller weitergebracht hat, könnte ich mir vorstellen, das

"Abstandshalter", also Leerzeichen dazwischen

Leerzeilen zwischen den Einträgen sind.

Code:

Private Sub UserForm_Initialize()
ComboBox1.List = Split(Replace(Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Range("A1:F1").Value)), ";"), ";", ";;"), ";")
End Sub