Combobox soll waagerechen Zellbereich einbinden.; Excel 2007

22/08/2009 - 14:58 von Jürgen Stadermann | Report spam
Hallo!
Da schreibe ich u.a.

With UserForm1.ComboBox1
.Style = fmStyleDropDownList
.ColumnCount = 4
..
.RowSource = "Tabelle1!A9:A23"
.
.ColumnWidths = "2cm;3cm;2cm"
End With

Soweit so gut.
Jetzt möchte ich aber einen waagerechten bereich,
z.Bsp. "Tabelle1!A9:F9" einbinden.
Frage: Was schreibe ich für .RowSource ;wie ist das möglich?
.ColumnSource ergibt Fehlermeldung.

Dank schon mal für Antworten.

Jürgen
 

Lesen sie die antworten

#1 Claus Busch
22/08/2009 - 15:36 | Warnen spam
Hallo Jürgen,

Am Sat, 22 Aug 2009 14:58:48 +0200 schrieb Jürgen Stadermann:

Jetzt möchte ich aber einen waagerechten bereich,
z.Bsp. "Tabelle1!A9:F9" einbinden.
Frage: Was schreibe ich für .RowSource ;wie ist das möglich?
.ColumnSource ergibt Fehlermeldung.



probiers mal so:

Private Sub UserForm_Initialize()

Dim myArray(6)
Dim i As Integer

For i = 0 To 5
myArray(i) = Sheets("Tabelle1").Cells(9, i + 1)
Next

For i = LBound(myArray) To UBound(myArray)
Me.ComboBox1.AddItem myArray(i)
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen