VBA - Adding a custom object to a collection in a loop

Question

I have create a Node Object:

Public value As Integer
Public marked As Boolean

Private Sub Class_Initialize()
     value = 0
     marked = False
End Sub

Then I tried to add some Node Objects to a Collection in a for loop:

Dim inp As Integer
Dim counter As Integer
Dim n As node
Dim arr As Collection

Sub MySub()

    inp = InputBox("Insert a number: ")

    For counter = 2 To inp
        Set n = New node
        With n
            .value = counter
            .marked = False
        End With
        arr.Add n
    Next counter

End Sub

But when I try to run it it only says:

Object variable or With block variable not set (Error 91)

Why is that happening?

@Rory Wow thanks, that was simple..... Write it as Answer, so that I can tick it :) — Tom291
– Tom291, Commented Mar 17, 2017 at 14:59

Rory · Accepted Answer · 2017-03-17 15:00:35Z

2

You're missing a line before your loop:

Set arr = New Collection

answered Mar 17, 2017 at 15:00

Rory

34.2k5 gold badges40 silver badges42 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA - Adding a custom object to a collection in a loop

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related