Compile error: Variable not defined

I'm close to the end of this code, but there is a problem with it.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

and i get :

Compile error:
Variable not defined

on 'Set zx = SumXCollection(artikal)' in Sub2().

What is particularly odd is that the code shouldn't enter the first part of the If statement immediately, because in the first pass the item (from the condition) doesn't exist, so the code must drop to Else part of the If statement, where a zx object needs to be created.

So that, every new zx object is created in the second (Else) part of the If st., and every existing one is updated in the first part.

What's wrong with this?

Thanks a lot in advance

I haven't check all your code, but:
artikal = Product.Text
Product doesn't seem to be a recognized onject!!