Question:

I am getting all the time error 381.. What is there wrong? If i use only 1 column it works, if i add 2nd and more it stops working.

I try to populate my rows which compile with "if statement".

it stops each time to work at 2nd column.

UserForm + some Data: <a href="https://drive.google.com/open?id=1hfCAu2m7C4kISSPJSvyjWc-TvxBr-fOO" rel="nofollow">https://drive.google.com/open?id=1hfCAu2m7C4kISSPJSvyjWc-TvxBr-fOO</a>

2nd Version of code:

Sub PopulateList2() Dim rngName As Range Dim ws As Worksheet Dim i As Integer Dim LastRow As Long Set ws = E1G With ListBoxAbg .Clear .ColumnCount = 2 LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row For i = 1 To LastRow If ws.Cells(i, 6).Value < Now() _ And ws.Cells(i, 6).Value <> vbNullString Then .AddItem .List(i - 1, 0) = ws.Cells(i, 1).Value .List(i - 1, 1) = ws.Cells(i, 3).Value End If Next i End With End Sub

....

Sub PopulateList2() Dim rngName As Range Dim ws As Worksheet Dim i As Integer Dim LastRow As Long Set ws = E1G AbgeListField.Clear AbgeListField.ColumnCount = 7 LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row For i = 1 To LastRow If ws.Cells(i, 6).Value < Now() _ And ws.Cells(i, 6).Value <> vbNullString Then AbgeListField.AddItem ws.Cells(i, 1).Value AbgeListField.List(i - 1, 1) = ws.Cells(i, 2).Value AbgeListField.List(i - 1, 2) = ws.Cells(i, 3).Value AbgeListField.List(i - 1, 3) = ws.Cells(i, 4).Value AbgeListField.List(i - 1, 4) = ws.Cells(i, 5).Value AbgeListField.List(i - 1, 5) = ws.Cells(i, 6).Value AbgeListField.List(i - 1, 6) = ws.Cells(i, 7).Value End If Next i End Sub

i found the answer in that post: <a href="https://social.msdn.microsoft.com/Forums/office/en-US/f5619db9-be72-41e3-a353-54ebb021f936/runtime-error-381-could-not-set-the-list-property-invalid-property-array-index?forum=exceldev" rel="nofollow">https://social.msdn.microsoft.com/Forums/office/en-US/f5619db9-be72-41e3-a353-54ebb021f936/runtime-error-381-could-not-set-the-list-property-invalid-property-array-index?forum=exceldev</a>

i added new dim nxtItme As Long. it works perfect now:

Sub PopulateList2() Dim rngName As Range Dim ws As Worksheet Dim i As Integer Dim LastRow As Long Dim nxtItem As Long Set ws = E1G nxtItem = 0 With ListBoxAbg .Clear .ColumnCount = 6 LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row For i = 1 To LastRow If ws.Cells(i, 6).Value < Now() _ And ws.Cells(i, 6).Value <> vbNullString Then .AddItem .List(nxtItem, 0) = ws.Cells(i, 1).Value .List(nxtItem, 1) = ws.Cells(i, 3).Value .List(nxtItem, 2) = ws.Cells(i, 4).Value .List(nxtItem, 3) = ws.Cells(i, 5).Value .List(nxtItem, 4) = ws.Cells(i, 6).Value nxtItem = nxtItem + 1 End If Next i End With End Sub