Listbox AddItem Fehler

Question

Ich habe Probleme, eine List-Box in VBA zu arbeiten. Ich bin mir nicht sicher, welchen Schritt ich vermisse. Ich habe eine Listbox namens ListBox1 erstellt.

Ich schrieb das Programm wie folgt:

Sub ListBox1_Change() 
    Dim ListBox As Object 

    With Listbox1 
     .AddItem = "Yes" 
     .AddItem = "No" 
    End With 
End Sub 

Das Programm scheitert an der .AddItem = "No" Linie. Ich bekomme Object Variable or With Block Variable not set Fehler.

Answer 1

Nicht sicher, warum Sie Elemente in derselben Listbox im Änderungsereignis hinzufügen. In Ihrem Code ist jedoch ein Syntaxfehler aufgetreten. Es gibt keine =, wenn Sie ein Element zur Listbox hinzufügen. Sieh dir das an.

With Listbox1 
    .AddItem "Yes" 
    .AddItem "No" 
End With 

Entfernen Sie auch die Linie Dim ListBox as Object. Du brauchst es nicht.

Wenn Sie es an einen anderen listbox hinzufügen planen dann denke ich, Sie brauchen diese

Sub ListBox1_Change() 
    With ListBox2 '<~~ Replace this with the other listbox name 
     .AddItem "Yes" 
     .AddItem "No" 
    End With 
End Sub