> t = "~" > For i=0 to uBound(Zahlen) > If instr(t,"~"&zahlen(i)&"~") = 0 then > t = t & zahlen(i) & "~" > End if > NeuListe = Split(mid(t,1),"~")
Nur sichreheitshalber, falls das jemand so machen will... Es muss mid(t,2,len(t)-2) heissen... Mid(t,1)=t Claudius ~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~ Kaffeepause im United Planet Communityserver ... http://www.intrexx.com/communityserver _______________________________________________ Coffeehouse mailing list [EMAIL PROTECTED] http://www.glengamoi.com/mailman/listinfo/coffeehouse
