This my simplified script: Sub SomeOtherSub(Stattyp As String) 'Daty and the ... Try - Call CatSubProduktAreakum(Stattyp, Daty + UBound(SubCategories) + 2).
stackoverflow.com