Einen einfachen GD auf das Array ist das aber nicht, was Du da berechnen willst.
Und ein GD auf W wird das imho auch nicht, was Du da berechnest, oder ich steh auf dem Schlauch.
kurzer Tip, wie ich glaube, dass man es lösen kann
Dim w(14),w_zaehler,w_komplett
w_zaehler=0
w_komplett=0
jedesmal wenn ein neues w auftaucht
if w_zaehler=14 then
w_komplett=1
w_zaehler=0
end if
w_zahler=w_zaehler+1
w(w_zaehler)=w
.....
....
if w_komplett=1 then
sum=0
for j=1 to 14
sum=sum+w(j)
next j
ergebnis(i)=sum/14
end if
PS. Du verwendest in Deinem Code Variablen ohne Ihnen vorher einen Wert zugewiesen zu haben, das gehört sich nicht!
PPS. Geht mit Sicherheit auch eleganter und schneller, aber iss schon spät und ich habe keine Lust über Deine W Konstruktion nachzudenken.
PPPS. Natürlich kann man auch schon Ergebnis berechnen, wenn keine 14 zusammen gekommen sind, aber das war ja nicht Deine Fragestellung. Dafür dann einfach den w_komplett kram rausnehmen
If you think it´s expensive to hire a professional, wait until you hire an amateur.