jerry0110
Erfahrenes Mitglied
Hallo zusammen,
ich habe im Internet nach einer Lösung gesucht, wie ich beim öffnen der Userform Listbox, diese mit Daten fülle.
Habe den Code angepasst.
Habe den Code gefunden. Jedoch sagt er mir immer, dass ich außerhalb des gültigen Bereichs bin. Verstehe aber nicht warum.
ich habe im Internet nach einer Lösung gesucht, wie ich beim öffnen der Userform Listbox, diese mit Daten fülle.
Habe den Code angepasst.
Habe den Code gefunden. Jedoch sagt er mir immer, dass ich außerhalb des gültigen Bereichs bin. Verstehe aber nicht warum.
Visual Basic:
Dim arr As Variant
Dim arrF() As Variant
Dim i As Long
Dim k As Long
Dim m As Long
Dim lastrow As Long
Dim lastcol As Long
lastrow = Worksheets("alle RG").Cells(Rows.Count, 1).End(xlUp).Row
lastcol = Worksheets("alle RG").Cells(1, Columns.Count).End(xlToLeft).Column
arr = Sheets("alle RG").Range("A1:AJ" & lastrow)
For i = 1 To UBound(arr)
If arr(i, lastcol) = "Ja" Then
m = m + 1
For k = 1 To UBound(arr, 2)
ReDim Preserve arrF(1 To UBound(arr, 2), 1 To m)
arrF(k, m) = arr(i, k)
Next
End If
Next
ListBox1.ColumnCount = UBound(arrF)
ListBox1.Column = arrF