Die Datei https://www.herber.de/bbs/user/73310.xls wurde aus Datenschutzgründen gelöscht
Sub P_Value()
With Worksheets("Anderson-Darling").Range("B29")
MsgBox "P-Value: " & .Text, vbInformation + vbOKOnly, _
"P-Value der Anderson-Darling-Auswertung"
End With
End Sub
Function AnDa(target As Range)
Dim NumberofData As Single
Dim s As Single
Dim AD As Single
Dim ADstar As Single
Dim p As Single
'B23
NumberofData = WorksheetFunction.CountA(WorksheetFunction.Index(target, 0, 1))
'G23
s = WorksheetFunction.Sum(WorksheetFunction.Index(target, 0, 7))
'B27 =-G23/B23-B23
AD = -s / NumberofData - NumberofData
'B28=B27*(1+0,75/B23+2,25/B23^2)
ADstar = AD * (1 + 0.75 / NumberofData + 2.25 / NumberofData ^ 2)
If ADstar = 0.6 Then p = Exp(1.2937 - 5.709 * ADstar + 0.0186 * ADstar ^ 2)
If ADstar = 0.34 Then p = Exp(0.9177 - 4.279 * ADstar - 1.38 * ADstar ^ 2)
If ADstar = 0.2 Then p = 1 - Exp(-8.318 + 42.796 * ADstar - 59.938 * ADstar ^ _
2)
If ADstar
Option Base 1
Function AnDa(target As Range)
'Please freely distribute and modify, but properly reference and maintain this information in _
the sheet.
'written by MichaV based on _
http://www.kevinotto.com/RSS/templates/Anderson-Darling
Normality Test Calculator.xls
'https://www.herber.de/forum/archiv/1196to1200/t1198017.htm#1198017
Dim NumberofData As Single
Dim SampleMean As Single
Dim SampleSigma As Single
Dim Sorted()
Dim Count As Integer
Dim F1i() As Single
Dim F1i_minus() As Single
Dim F2i() As Single
Dim Si() As Single
Dim s As Single
Dim AD As Single
Dim ADstar As Single
Dim p As Single
'B23
NumberofData = WorksheetFunction.CountA(target)
'B24
SampleMean = WorksheetFunction.Average(target)
'B25
SampleSigma = WorksheetFunction.StDev(target)
'Data table for evaluation of Si
ReDim F1i(NumberofData)
ReDim F1i_minus(NumberofData)
ReDim Si(NumberofData)
Sorted = Application.WorksheetFunction.Transpose(target)
ReDim Preserve Sorted(NumberofData)
QuickSort Sorted
For Count = 1 To NumberofData
F1i(Count) = Application.WorksheetFunction.NormSDist((Sorted(Count) - SampleMean) / _
SampleSigma)
F1i_minus(Count) = 1 - F1i(Count)
Next
F2i = F1i_minus
QuickSort F2i
For Count = 1 To NumberofData
Si(Count) = (2 * Count - 1) * (Log(F2i(Count)) + Log(F1i(Count)))
Next
'End Data table
'G23
s = WorksheetFunction.Sum(Si)
'B27 =-G23/B23-B23
AD = -s / NumberofData - NumberofData
'B28=B27*(1+0,75/B23+2,25/B23^2)
ADstar = AD * (1 + 0.75 / NumberofData + 2.25 / NumberofData ^ 2)
If ADstar = 0.6 Then p = Exp(1.2937 - 5.709 * ADstar + 0.0186 * ADstar ^ 2)
If ADstar = 0.34 Then p = Exp(0.9177 - 4.279 * ADstar - 1.38 * ADstar ^ 2)
If ADstar = 0.2 Then p = 1 - Exp(-8.318 + 42.796 * ADstar - 59.938 * ADstar ^ _
2)
If ADstar x): j = j - 1: Wend
If (i j)
If (lngStart