Looking for a single text value and returning 1 or multiple text values in one cell

Hey Mike,
As you asked, I’ve tried to make a more realistic workbook of my data. But the problem does not occur in that file. So I found that extracting data from a pivot table is not the problem. I think it’s my original pivot table that causes the problem. But why and where I can’t figure out. Here is a photo of the code and the error line a(ii,1)=<subscript out of range>. Maybe it can help you to figure out what’s wrong.

code with error line subscript out of range.JPG

Due to upload limitations it’s not possible to upload my original file (to big).
Now I found a workaround for the still existing problem in my original file, the only thing I can’t workout is how to put the data in a different column (not B but M).
Hopefully you can help me with that last hurdle.
Thanks.
Marc