wie kann ich in einer UserForm eine ListBox in Abhängigkeit
einer ComboBox-Auswahl füllen lassen und zwar die Spalte B
Spalte C , Spalte E und Spalte H?
Im nachfolgenden Code wird nur die Spalte B und Spalte C
gefüllt. Die Spalte E und H werden nicht eingelesen.
Habe mit arr(i, 3) = Cells(iRow, 5)
arr(i, 4) = Cells(iRow, 8)
versucht bekomme eine Fehlermeldung: "Laufzeitfehlet '9'
Index außerhalb des gültigen Bereichs"
Hier der Code:
Private Sub cboBeispiel_Change()
Dim iRow As Integer
Dim i As Integer
lstGesamt.Clear
lstGesamt.ColumnCount = 2
iRow = WorksheetFunction.Match(cboBeispiel.Value, Columns(1), 0)
ReDim arr(WorksheetFunction.CountIf(Columns(1), cboBeispiel) - 1, 2)
i = 0
Do While Cells(iRow, 1).Value = cboBeispiel.Value
arr(i, 0) = Cells(iRow, 2)
arr(i, 1) = Cells(iRow, 3)
arr(i, 3) = Cells(iRow, 5)
arr(i, 4) = Cells(iRow, 8)
i = i + 1
iRow = iRow + 1
Loop
lstGesamt.List = arr
lstGesamt.ListIndex = 0
End Sub
Hat jemand eine Idee wonwegen "Index außerhalb des gültigen Bereichs"?
Für die Hilfe wäre ich sehr dankbar.
Grüße