• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Foutmelding terwijl het toch werkt

Status
Niet open voor verdere reacties.

JanBG

Verenigingslid
Lid geworden
30 aug 2017
Berichten
971
Ik krijg bij het verwerken van het Userform uit de bijlage de volgende fout melding:

2019-02-17 13_11_33-Window.png

In deze macro:

2019-02-17 13_12_18-Window.png

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

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

Bijlagen

Code:
For x = 0 To Me.LB_03.ListCount [COLOR="#FF0000"]- 1[/COLOR]
 
Maak van de sub Vullen eens dit:
Code:
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
 
@gast0660, @edmoore,

Beide oplossingen werken als een zonnetje :thumb:

Dank!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan