Userform-listbox füllen mit Palette

Gibt es eine Möglichkeit, die ich Auffüllen kann Listenfeld oder andere feature in der user form durch die Reihe von Zellen?

Ich würde gerne jede meiner ausgewählten Spalten in 1 Listenfeld, wie in:

Userform-listbox füllen mit Palette .

Z.B. A2:U100 ohne neue Liste Feld für jede Spalte?

Jetzt mache ich es wie:

ListBox1.List = Application.Worksheets("Můj_Ranking").Range("B2:B" & lastRw).Value
ListBox2.List = Application.Worksheets("Můj_Ranking").Range("C2:C" & lastRw).Value
ListBox3.List = Application.Worksheets("Můj_Ranking").Range("D2:D" & lastRw).Value
ListBox4.List = Application.Worksheets("Můj_Ranking").Range("E2:E" & lastRw).Value
ListBox5.List = Application.Worksheets("Můj_Ranking").Range("F2:F" & lastRw).Value
ListBox6.List = Application.Worksheets("Můj_Ranking").Range("G2:G" & lastRw).Value
ListBox7.List = Application.Worksheets("Můj_Ranking").Range("H2:H" & lastRw).Value
ListBox8.List = Application.Worksheets("Můj_Ranking").Range("I2:I" & lastRw).Value
ListBox9.List = Application.Worksheets("Můj_Ranking").Range("J2:J" & lastRw).Value
ListBox10.List = Application.Worksheets("Můj_Ranking").Range("K2:K" & lastRw).Value
ListBox11.List = Application.Worksheets("Můj_Ranking").Range("L2:L" & lastRw).Value

InformationsquelleAutor HeadOverFeet | 2015-11-26

1

So dass Sie in der Tat wollen eine ListBox mit mehreren Spalten, so etwas sollte helfen :
```
With ListBox1
    .ColumnCount = 11
    .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50"
    .ColumnHeads = False
    .RowSource = "=Můj_Ranking!B2:L" & LastRw
    .MultiSelect = fmMultiSelectMulti
End With
```
Oder wie eine Schleife durch die controls :
```
For i = 1 To 11
    With Application.Worksheets("Můj_Ranking")
         Controls("ListBox" & i).List = .Range(ColLet(i) & "2:" & ColLet(i) & lastRw).Value
    End With
Next i
```
Und Sie haben auch .RowSource - Eigenschaft für die meisten Steuerelemente! 😉

Und die Funktion, um die Buchstaben für die Spalten :
```
Public Function ColLet(x As Integer) As String
With ActiveSheet.Columns(x)
    ColLet = Left(.Address(False, False), InStr(.Address(False, False), ":") - 1)
End With
End Function
```
Danke, ich möchte nicht, um es in 11 verschiedenen Listboxen aber in einem. Ich habe versucht rowsource aber auch, das ich verwenden möchte lastRw...
Ich glaube nicht, dass LastRw und RowSource sind Inkompatibilitäten. Also willst du ein control mit mehreren Spalten?
Ich glaube nicht, dass so weder.. ich würde gerne st wie hier.
Es ist in der Tat ein control mit mehreren Spalten! So testen Sie den ersten Teil des Bearbeiten! 😉
Aaaa! Ich sehe es jetzt. Danke, Sie sind eine echte Hilfe 🙂

InformationsquelleAutor R3uK

noch nicht getestet, für Listbox, aber hier ist, wie fülle ich eine Combobox mit dem Ergebnis ein recordset

 Function Fill_Combobox(ByRef cbo As ComboBox, ByVal rs As ADODB.Recordset, ByVal colWidth As String)
    Dim aryColumnWidth() As String
    Dim i As Integer

    aryColumnWidth = Split(colWidth, ";")
    cbo.Clear
    cbo.ColumnCount = UBound(aryColumnWidth) + 1
    cbo.ColumnHeads = False
    cbo.ColumnWidths = colWidth

    Do Until rs.EOF
        With cbo
            .AddItem
            For i = 0 To UBound(aryColumnWidth)
                .List(.ListCount - 1, i) = rs.Fields(i)
            Next
        End With
        rs.MoveNext
    Loop
End Function

sollte es funktionieren ähnlich wie bei einer listbox. Aufruf der AddItem-Methode fügen Sie einen neuen Eintrag in die listbox und dann füllen Sie es durch den Zugriff auf die Liste element

InformationsquelleAutor cboden

Vorausgesetzt, lese ich deine Frage richtig, dies sollte fügen Sie eine einzelne Zeile mit der Anzahl der Spalten, die Sie haben, in einer einzigen ListBox.

for i = 2 to lstRw
    With ListBox1
        .AddItem Application.Worksheets("Můj_Ranking").Range("B" & i).value
        .List(.ListCount - 1 ,1) = Application.Worksheets("Můj_Ranking").Range("C" & i).Value
        .List(.ListCount - 1 ,2) = Application.Worksheets("Můj_Ranking").Range("D" & i).Value

        'And so on for each column
        .List(.ListCount - 1 ,10) = Application.Worksheets("Můj_Ranking").Range("L" & i).Value
    End With
next i

Denken Sie daran Bearbeiten Sie die Eigenschaften Spaltenanzahl der ListBox-Steuerelement auf deiner userform, es wird nicht funktionieren 🙂

Hi,danke, leider bringt es die zahlen in einer Spalte. Ich will es wie dieser

InformationsquelleAutor Alex4336

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.