Ich möchte eine mehrspaltige ListBox dynamisch befüllen.
Zuerst habe ich ein Befüllung mit festem Bezug wie folgt gemacht:
With ListBox2
.ColumnCount = 3
.RowSource = "E37:K47"
.ColumnHeads = True
.ColumnWidths = "1cm;1,8cm;1,5cm"
.ListStyle = fmListStylePlain
End With
Funktioniert - so weit so gut.
Dann habe ich versucht, die ListBox dynamisch zu befüllen, d.h. nur diejenigen Datensätze sollen angezeigt werden, die den gleichen Wert wie TextBox1 aufweisen.
'Listbox dynamisch befüllen
Sheets("SALES-MP").Select
Dim Blatt1 As Worksheet
Dim Q As Long
Set Blatt1 = ActiveWorkbook.Worksheets("SALES-MP")
With ListBox2
.ColumnCount = 3
.ColumnHeads = True
.ColumnWidths = "1cm;1,8cm;1,5cm"
For Q = 1 To Blatt1.UsedRange.Rows.Count
If Cells(Q, 1).Value = TextBox1.Value Then
.AddItem Cells(Q, 4).Value
.AddItem Cells(Q, 5).Value
.AddItem Cells(Q, 6).Value
End If
Next Q
End With
Die Selektion funktioniert - er zeigt nun die richtigen Datensätze an - doch alle in der ersten Spalte untereinander statt nebeneinander.
Wie kann man das lösen?
Vielen Dank für eine Antwort
Schöne Grüsse
Marcel