Office: Listbox befüllen

Hallo,

so besser?

Private Function Array_Prüfen(ByVal txt As Control, ByVal Spalte As Integer) As Variant
Dim i As Long, j As Long
Dim r As Long
Dim arr() As Variant
Dim y As Boolean

For i = LBound(arrTmp) To UBound(arrTmp)
If LCase(arrTmp(i, Spalte)) Like "*" & LCase(txt.Value) & "*" Then
Redim Preserve arrT(0 To 6, 0 To r)
Redim Preserve arr(1 To 7, 1 To r + 1)
y = True
For j = 0 To 6
arrT(j, r) = arrTmp(i, j + 1)
arr(j + 1, r + 1) = arrTmp(i, j + 1)
Next j
r = r + 1
End If
Next i

If y Then
Erase arrTmp
arrTmp = WorksheetFunction.Transpose(arr)
ListBox1.Clear
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "2cm;2cm;2cm;2cm;0cm;0cm;1cm"
If UBound(arrT, 2) = 0 Then
Redim arr(0, 6)
For i = 0 To 6
arr(0, i) = arrT(i, 0)
Next i
ListBox1.List = arr
Else
Array_Prüfen = WorksheetFunction.Transpose(arrT)
End If
Else
MsgBox "Keine passenden Daten zu den Kriterien gefunden !"
txt.Value = ""
txt.SetFocus
Array_Prüfen = ListBox1.List
End If
End Function

 

funktioniert super, danke!

kannst du mir noch erklären warum es vorher nicht ging?

hab zwar gesehen das du unter y UBound und ReDim den wert geändert hast, aber so ganz verstanden hab ich das nicht.

 

Hallo,

du hattest vorher:

Code:

Das habe ich geändert auf:

Code:

Sprich die Listbox hatte bei dir nur 4 Spalten und nicht 7.

 

Hmm, okay...warum wurden dann mehr angezeigt, wenn es mehr als einen Eintrag in der ListBox gab?

 

Hallo,

weil du das arrT mit Redim Preserve arrT(0 To 6, 0 To r) 7 Spalten breit machst und mit For j = 0 To 6 füllst.

 

Ah, also sind das zwei verschiedene Situationen...okay...danke.