Sub regr()
Dim i, n, m As Integer
Dim xquer, yquer As Single
Dim x(), y() As Integer

'Anzahl der Werte bestimmen
i = 3
n = 1
Do Until Cells(i, 3) = ""
    i = i + 1
    n = n + 1
Loop
n = n - 1

ReDim x(n), y(n) As Integer

' Felder haben n Werte (Nummerierung 1..n), da ein Feld bei 0 anfängt-> n Werte: (Nummerierung 0..n-1)

'Werte einlesen
m = 3
i = 0
For i = 0 To n - 1
    x(i) = Cells(m + i, 3)
    y(i) = Cells(m + i, 4)
Next

i = 0
For i = 0 To n - 2
    x(i + 1) = x(i + 1) + x(i)
    y(i + 1) = y(i + 1) + y(i)
Next


xquer = x(i + 1) / n
yquer = y(i + 1) / n

End Sub

Ich habe eine Frage zu der letzten Schleife und xquer: Beim Verlassen der Schleife hat i den Wert 1. Wenn ich dann das i von xquer kontrolliere, so hat es den Wert 2. Woran kann das liegen?

Vielen Dank für eine Antwort.