Eintrag zu Listbox hinzufügen, mehrere Spalten

29/04/2010 - 13:14 von Jens Meier | Report spam
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
 

Lesen sie die antworten

#1 Peter Schleif
29/04/2010 - 14:04 | Warnen spam
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
dabei helfen?
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

Ähnliche fragen