Laufzeitfehler '381': tritt auf, wenn ich nach dem Entfernen eines Elements ein Element in ein Listenfeld einfügt

Question

Dies ist der Code, der das Listenfeld füllte, wobei die meisten Daten aus TextBoxen übernommen wurden.

iListCount wird als global deklariert. Aus Gründen, die mir unbekannt sind, füllt das Listenfeld nur die erste Zeile und würde keine weiteren übernehmen, es sei denn, dies wird so gemacht.

Private Sub cmdAddFraudCharges_Click() 
    With Me.lstFCHRGS '<- ListBox   
     .ColumnCount = 6 
     .ColumnWidths = "60;65;50;26;35;70" 
     .AddItem 
     .List(iListCount, 0) = dtpAddDt |<--DateTimePicker|error occurs here 
     .List(iListCount, 1) = txtAddAmt |<--Continues till last column 
     iListCount = iListCount + 1 
    End With   
End Sub  

Hier ist der Code, den ich verwendet habe, um das Listbox-Element und den Arbeitsblatteintrag gleichzeitig zu löschen.

Private Sub cmdDelChrgs_Click() 
    Dim x As Integer 
    Dim y As Integer 
    Dim t As Integer 

    Dim rngTarget As Range 
    Set rngTarget = wksFraud.Range("A1").End(xlDown) 
    Set wksFraud = Application.ThisWorkbook.Worksheets("Fraud") 

    For iListCount = lstFCHRGS.ListCount - 1 To 0 Step -1 
     x = lstFCHRGS.ListCount 
     If lstFCHRGS.Selected(iListCount) Then 
      y = iListCount 
      t = (x - y) - 1 

      With rngTarget 
       Set rngTarget = rngTarget.Offset(-t, 0) 
       rngTarget.EntireRow.Delete 
      End With 

      lstFCHRGS.RemoveItem (iListCount) 
     End If 
    Next iListCount 
End Sub 

Answer 1

Nach Zugabe von 5 Elemente in die Liste iListCount würde 4. aufgrund zu dieser Linie gleich iListCount = iListCount + 1 nun gleich wäre, 5.

Private Sub cmdDelChrgs_Click() Dim x As Integer Dim y As Integer Dim t As Integer

Dim rngTarget As Range 
Set rngTarget = wksFraud.Range("A1").End(xlDown) 
Set wksFraud = Application.ThisWorkbook.Worksheets("Fraud") 

'For iListCount = lstFCHRGS.ListCount - 1 To 0 Step -1|<-- changed this with 
For iListCount = LBound(lstFCHRGS.List) To UBound(lstFCHRGS.List)  

iListCount = 0 an dieser Stelle wie es Schleifen iListCount den Wert von 5

If lstFCHRGS.Selected(iListCount) Then 
     x = lstFCHRGS.ListCount 
     y = iListCount 
     t = (x - y) - 1 

     With rngTarget 
      Set rngTarget = rngTarget.Offset(-t, 0) 
      rngTarget.EntireRow.Delete 
     End With 

     lstFCHRGS.RemoveItem (iListCount) 
End If 
Next iListCount 

Nach dem Löschen des Elements iListCount noch 5 ist und war wahrscheinlich die Ursache für den Fehler haben würde

iListCount = iListCount - 1|<-- Add after next to restores the value of iListCount