VBA teilt keine lokale Variable (Fehler 6 Überlauf)

Question

Ich versuche einen einfachen Z-Test zu programmieren, aber mein Code gibt einen Fehler bei der Berechnung des Z-Ergebnisses mit diesem Code: Z = (P1 - P2)/SD; Weiß jemand warum? Der Fehler, der oben kommt, ist ein Überlauf (Fehler 6)

Hier ist der vollständige Code:

Sub ChiSquare() 

    Total_Groep_1 = Application.Sum(Range("C4", Range("C4").End(xlDown))) 
    Total_Groep_2 = Application.Sum(Range("E4", Range("E4").End(xlDown))) 


    For i = 5 To Range("C4").End(xlDown) 
       Dim P1 As Double 
    P1 = Cells(i, 3)/Total_Groep_1 
    Cells(i, 4) = P1 

    Dim P2 As Double 
    P2 = Cells(i, 5)/Total_Groep_2 
    Cells(i, 6) = P2 

    Dim SD As Double 
    SD = Sqr((P1 * (1 - P1)/Total_Groep_1) + (P2 * (1 - P2)/Total_Groep_2)) 
    Cells(i, 7) = SD 

    Dim Z As Double 
    Z = (P1 - P2)/SD 
    Cells(i, 8) = Z 

    Next i 

End Sub 

Answer 1

Die Schleife, die ich gemacht nicht zu einer Zahl ging aber auf einen Bereich. Es funktioniert jetzt habe ich das geändert.