Hier mal mein Ansatz für die Standardabweichung ( der nicht funktioniert). In Zeile A1:A147000 steht das Datum in dd/mm/yyyy. Ich vergleiche nun, ab wann mm/YYYY nicht mehr übereinstimmt. Falls es nicht mehr übereinstimmt soll die STD (sd) über die Zellen gebildet werden, die bis dahin übereinstimmten. Wer kann mich unterstützen?

Dim j As Integer
Dim hilf As Integer
Dim f As Double
Dim i As Double
Dim sd As Range
Dim jahr As Integer
Dim y As Date
Dim hilf1 As Date
Dim x As Variant

'--------------------------------------------------

f = 2
z = 12
x = 1
std = 0
b = 9
For i = 2 To 147000
    y = Sheets("Daten").Cells(i, 1).Value
    hilf1 = Sheets("Daten").Cells(i + 1, 1).Value
    If hilf1 = Empty Then
    hilf = 999
    Else
   
    j = Month(y)
    hilf = Month(hilf1)
    jahr = Year(y)
    End If
    If j = hilf Then
        x = x + 1
          
    Else
    Set sd = Range(Cells(i, 1), Cells(i, x))
    Cells(i, 15).Value = Application.WorksheetFunction.StDev(sd)

        sd = 0
          
     
        x = 1
End If
Next i
End Sub