VBA Excel Bevölkern ListBox mit mehreren Spalten

Dies kann eine billige Frage für einige, aber ich bin Total verwirrt, wie man das Auffüllen meiner listbox.

Mit dieser Zeile kann ich das Listenfeld füllen, wie unten dargestellt:
ListBox1.List = Sheets("Sheet1").Cells(1, 1).CurrentRegion.Value

oder

Dim rngName As Range
Dim ws As Worksheet
Dim i As Integer
Set ws = Worksheets("Sheet1")
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1
        If ws.Cells(i, 1).Value <> vbNullString Then Me.ListBox1.AddItem 
        ws.Cells(i, 1).Value
Next i

VBA Excel Bevölkern ListBox mit mehreren Spalten

Unten ist die Daten, die ich Plane, verwenden Sie zum Auffüllen der Liste aus, und ist progressiv. Nur die Spalte hat den fix zählen.
VBA Excel Bevölkern ListBox mit mehreren Spalten

Jemand bitte klärt mich auf, wie um ein Listenfeld zu füllen adapative über mehrere Spalten und Zeilen mit FOR-SCHLEIFE, wie gezeigt, in meinem code oben. Jede Hilfe zu schätzen. Danke.

Haben Sie gesehen, THIS
Und für den nicht zusammenhängenden Bereich finden Sie unter THIS
Diese Zeile enthält die Deklaration bestimmten Bereich. Ist es möglich, die Auswahl aller Zellen, die nicht leere Zelle?
Warum haben Sie wollen - Schleife? Es ist viel schneller nicht zu.
Können Sie nicht verwenden dynamische benannte Bereiche?

InformationsquelleAutor Serversta | 2017-11-28

4

Methoden
1. Es ist immer besser, um eine Schleife durch ein array als eine Reihe - es ist viel schneller.
2. Es noch schneller zu schaffen, eine Variante Datenfeld-array mit einer one-liner statt redimensioning eine predeclared array und füllen Sie es in eine extra-Schleife, wie vorgeschlagen, von Siddharth Rout (obwohl eine gute Methode 🙂 Hinweis: Sie Den code unten beruht auf seinem Ansatz auf die in dem obigen Kommentar nur zu deutlich den Unterschied.
3. Füllen ListBox1.List mit dem array (gleiche Methode, aber in umgekehrter Richtung).
Code
```
Private Sub CommandButton1_Click()
' Purpose:  fill listbox with range values after clicking on CommandButton1
'           (code could be applied to UserForm_Initialize(), too)
' Note:     based on @Siddharth-Rout 's proposal at https://stackoverflow.com/questions/10763310/how-to-populate-data-from-a-range-multiple-rows-and-columns-to-listbox-with-vb
'           but creating a variant data field array directly from range in a one liner
'           (instead of filling a redimensioned array with range values in a loop)
Dim ws      As Worksheet
Dim rng     As Range
Dim MyArray                 ' variant, receives one based 2-dim data field array
'~~> Change your sheetname here
Set ws = Sheets("Sheet1")

'~~> Set you relevant range here
Set rng = ws.Range("A1:C" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)

With Me.ListBox1
    .Clear
    .ColumnHeads = False
    .ColumnCount = rng.Columns.Count

    '~~> create a one based 2-dim datafield array
     MyArray = rng

    '~~> fill listbox with array values
    .List = MyArray

    '~~> Set the widths of the column here. Ex: For 5 Columns
    '~~> Change as Applicable
    .ColumnWidths = "50;50;50"
    .TopIndex = 0
End With
End Sub
```
Zusätzliche Hinweise
- Ein weiterer Vorteil der array-Methode - es überwindet das eingebaute Beschränkung, nur 10 Spalten bei der Verwendung der .AddItem Methode.
- Darüber hinaus beachten Sie, dass die listbox die Indizierung ist null-basiert, so zum Beispiel erhalten Sie die e-mail-Adresse (Spalte 3, index 2) des ersten Elements der Zeile (index 0) über ListBox1.List(0, 2), in der Erwägung, dass die Datenfeld-array wird automatisch ein anhand der 2-dim-array.
- Sind Sie nicht beschränkt auf die Nutzung der .List Methode, um Informationen aus der listbox, können Sie rückgängig machen, die Zeile - Spalte, um durch die Verwendung ListBox1.Column" or even create a new array out of it, which remains a 2-dim object, even if there is only ONE item (note: theAnwendung.Transpose " - Methode würde redim ein 2-dimensionales array mit nur einer Zeile zu einem 1-dim array).
- Einen letzten Punkt: Sie können leicht dump wieder die ganze listbox auf einem Excel-sheet über rng = ListBox1.List, aber achten Sie darauf, um zu definieren, den richtigen Bereich.
Ich bin dankbar für die positive Lernumgebung, die Sie mir mitgegeben haben. Ich habe gelernt, dass der Ansatz, Sie würde mir besser war!
Froh, dass ich helfen konnte, finden Sie einige zusätzliche Hinweise, die Sie in meinem edit.

InformationsquelleAutor T.M.

Wie wäre es damit:

Sub foo()
Dim rngName As Range
Dim ws As Worksheet
Dim i As Integer
Set ws = Worksheets("Sheet1")
ListBox1.Clear
ListBox1.columnCount = 3
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    For i = 1 To LastRow
        If ws.Cells(i, 1).Value <> vbNullString Then ListBox1.AddItem ws.Cells(i, 1).Value
        If ws.Cells(i, 2).Value <> vbNullString Then ListBox1.List(i - 1, 1) = ws.Cells(i, 2).Value
        If ws.Cells(i, 3).Value <> vbNullString Then ListBox1.List(i - 1, 2) = ws.Cells(i, 3).Value
    Next i
End Sub

Vielen Dank für die Mühe, mir zu helfen. Ich weiß es zu schätzen wissen!
Kein problem, gern behilflich sein...

InformationsquelleAutor Xabier

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.