Hallo,

Ich möchte die Standardabweichung einer bestimmten Reihe berechnen. In dieser Reihe stehen aber auch Fehlwerte mit -99. Diese sollen natürlich nicht in die Rechnung miteinbezogen werden. Mit meinem Makro funktioniert das aber nicht. Da werden die Werte mit gerechnet:

Sub SAB ()

Dim i As Long
Dim rein, Fz As String

rein = Sheets(2).Name
Fz = Sheets(21).Name

Sheets(rein).Activate

For i = 7 To AnzahlZeilen + 5

Ki = Cells(i, 27)
If Ki > 0 Then
stabw_1 = Application.WorksheetFunction.StDevP(Sheets(rein).UsedRange.Columns(27))
End If

Next

Sheets(Fz).Activate

Cells(47, 5) = stabw_1
End If

Ich hoffe jemand kann mir helfen. Danke

Gruß Alex