Foutmelding terwijl het toch werkt

[JanBG]

Ik krijg bij het verwerken van het Userform uit de bijlage de volgende fout melding:



In deze macro:



Vreemde is, dat de macro gewoon doet wat ie moet doen.

Zit er nu al een tijdje meet te klooien, maar zonder succes :evil:

 

[gast0660]

For x = 0 To Me.LB_03.ListCount [COLOR="#FF0000"]- 1[/COLOR]

 

[edmoor]

Maak van de sub Vullen eens dit:

Sub Vullen()
    Application.ScreenUpdating = False
    For x = 0 To Me.LB_03.ListCount
        If Me.LB_03.Selected(Me.LB_03.ListIndex) = True Then
            Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1) = Me.LB_03.List(x)
            Exit For
        End If
    Next x
    Application.ScreenUpdating = True
    Unload Me
End Sub

 

[JanBG]

@gast0660, @edmoore,

Beide oplossingen werken als een zonnetje :thumb:

Dank!