AW: mit Combobox die Listbox füllen
05.05.2023 11:26:29
Rudi Maintaire
Hallo,
Private Sub LB_Laden()
Dim varCombos$, i&, j&
Dim rngFund As Range, rngC As Range, n As Integer, vntList()
If cbb1.ListIndex 0 Or cbb2.ListIndex 0 Or cbb3.ListIndex 0 Then ListBox1.Clear
varCombos = cbb1 & cbb2 & cbb3
With Tabelle1
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If varCombos = .Cells(i, 1) & .Cells(i, 2) & .Cells(i, 3) Then
n = n + 1
If rngFund Is Nothing Then
Set rngFund = .Cells(i, 1)
Else
Set rngFund = Union(rngFund, .Cells(i, 1))
End If
End If
Next i
End With
If Not rngFund Is Nothing Then
ReDim vntList(1 To n, 1 To 11)
n = 0
For Each rngC In rngFund
n = n + 1
For j = 0 To 10
vntList(n, j + 1) = rngC.Offset(, j)
Next j
Next rngC
With ListBox1
.ColumnCount = 11
.List = vntList
End With
TextBox1.Text = n
End If
End Sub
Gruß
Rudi