Zwei Dimensionales Array füllen
29.09.2022 15:23:03
Thomas
ich möchte für eine Listbox Daten aus einem Tabellenblatt in ein Array einlesen und dann an eine zweispaltige Listbox übergeben.
Ich bekomme auch Werte in die Listbox, allerdings nur in die zweite Spalte wird gefüllt, mit den Werten aus der Tabelle aus Spalte 3
Die Werte für die erste Spalte stehen in der Tabelle in der Spalte 3 und die Werte für die zweite Spalte in der Listbox stehen in der Tabelle in Spalte 4.
Was mache ich falsch?
Sub ListMitarbeiterFuellen()
Dim arrMitarbeiter(0 To 200, 0 To 4) As Variant
Dim lngRow As Long
Dim lngLastRow As Long
Dim lngCol As Long
Dim lngLastCol As Long
Dim I As Integer
With tblDaten
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For lngRow = 3 To lngLastRow
I = 1
For lngCol = 3 To 4
arrMitarbeiter(lngRow - 2, I) = .Cells(lngRow, lngCol)
I = I + 1
Next lngCol
Next lngRow
End With
forMitarbeiter.libMitarbeiter.ColumnCount = 2
forMitarbeiter.libMitarbeiter.ColumnWidths = "4cm;2cm"
forMitarbeiter.libMitarbeiter.BackColor = &H80000002
forMitarbeiter.libMitarbeiter.List() = arrMitarbeiter
End Sub
