Thank you, for the answer.
With
FullForm[w[1]]
Out[44]:= Times[-1,Cos[Subscript[\[Phi],1][t]]\[IndentingNewLine],Subscript[l,1],TextCell[""]]
i found an invisible Textcell. I deleted it. Now it works.
I dont know where it comes from, but it drived me crazy.