Ich weiß ein leidiges Thema........aber ich möchte in einer Userform eine Listbox mit drei Spalten füllen.
Private Sub UserForm_Initialize() 'Column Count auf drei
With Me.ListBox1
Dim lngUntersterEintrag As Long
lngUntersterEintrag = Worksheets("Mitarbeiterverwaltung").Range("A65536").End(xlUp).Row
Me.ListBox1.List = Worksheets("Mitarbeiterverwaltung").Range("A1:C" & lngUntersterEintrag).Value ' wenn ich :B einfüge zeigt es die Spalten A und B an.
' so zeigt es Spalte A und C an
End With
Folgendes geht leider auch nicht: zeigt nur 1 und 3 an:
Private Sub UserForm_Initialize()
Dim i As Long
With Me.ListBox1
.ColumnCount = 3
For i = 1 To lngUntersterEintrag ' ist natürlich Int-Variable
.AddItem Cells(i, 1) 'SpalteA in erste Spalte
.List(.ListCount - 1, 1) = Cells(i, 2) 'SpalteB in zweite Spalte ' Cells richtig befüllt
.List(.ListCount - 1, 2) = Cells(i, 3) 'SpalteC in dritte Spalte ' cells richtig befüllt
Next
End With
Gibt es eine Lösung?
Allen einen schönen Abend und lg
STeve