Mittelwert und STDEV berechnen aus Histogramm

[WillWissen]

Hi,

Funktioniert tatsächlich. Warum auch immer.

um dein Verständnis für die geschweiften Klammern zu wecken, hier eine Erklärung über Matrixformeln.

[Rabe]

Hi,

es scheint als dass kein VB-Script nötig ist 

VBA ist bei großen Datenmengen schneller und nicht so resourcenfressend!

[snb]

z.B.

Code:

Sub M_snb()
   sn = Range("A1:B5")
   
   For j = 1 To UBound(sn)
      Cells(j, 6).Resize(, sn(j, 2)) = Split(Replace(Space(sn(j, 2)), " ", sn(j, 1) & " "))
   Next
   Cells(1, 6).CurrentRegion = Cells(1, 6).CurrentRegion.Value
   
   MsgBox Application.Average(Cells(1, 6).CurrentRegion)
   MsgBox Application.StDevP(Cells(1, 6).CurrentRegion)
End Sub

[snb]

etwas einfacher:

Code:

Sub M_snb()
   sn = Range("A1:B5")
   
   For j = 1 To UBound(sn)
      Cells(j, 6).Resize(, sn(j, 2)) = sn(j, 1)
   Next
   
   MsgBox Application.Average(Cells(1, 6).CurrentRegion)
   MsgBox Application.StDevP(Cells(1, 6).CurrentRegion)
End Sub