Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Eintrag zu Listbox hinzufügen, mehrere Spalten
2,020 views
Skip to first unread message
Jens Meier
Apr 29, 2010, 7:14:48 AM4/29/10
to
Hallo NG,
ich m�chte in XL07 eine 3-spaltige Listbox per vba bef�llen? Kann mir jmd
dabei helfen?
Bei .AddItem kann ich keine spalten angeben.?
Gruss,
Jens
Peter Schleif
Apr 29, 2010, 8:04:50 AM4/29/10
to
Jens Meier schrieb am 29.04.2010 13:14 Uhr:
>
> ich möchte in XL07 eine 3-spaltige Listbox per vba befüllen? Kann mir jmd
>
> ich möchte in XL07 eine 3-spaltige Listbox per vba befüllen? Kann mir jmd
> dabei helfen?
> Bei .AddItem kann ich keine spalten angeben.?
> Bei .AddItem kann ich keine spalten angeben.?
Doch das geht. Erst ganz normal für jedes Item die erste Spalte
hinzufügen und dann die weiteren Spalten über .List(...)
Peter
Private Sub UserForm_Initialize()
Dim i As Integer
With Me.ListBox1
.ColumnCount = 3
.BoundColumn = 1
.ColumnWidths = "2,5cm;2,5cm;2,5cm"
.Width = 250
.Clear
For i = 1 To 5
.AddItem "Item " & i & " Spalte 1"
.List(.ListCount - 1, 1) = "Item " & i & " Spalte 2"
.List(.ListCount - 1, 2) = "Item " & i & " Spalte 3"
Next
End With
End Sub
0 new messages