Sub TestfncHaeufigkeit()
Dim varArr As Variant, ii As Integer 'Ergebnis-Array mit Häufigkeiten
Dim arrVert As Variant, iJ As Integer
Dim Zeile As Long
With ActiveSheet
arrVert = Array(0, 2, 4, 6, 8, 10) 'Array für Verteilung - ggf. anpassen
'Häufigkeit für Werte in Spalte A ab Zeile 2 ermitteln
varArr = fncHaeufigkeit(rngWerte:=.Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)), _
arrVerteilung:=arrVert) 'Zellbereich ggf. anpassen
End With
'Ergebnis in Spalte B und C der Tabelle ab Zeile 2 eintragen
With ActiveSheet
Zeile = 2: iJ = 0 'Startzeile
If .Cells(Zeile, 2).End(xlUp) >= Zeile Then
.Range(.Cells(Zeile, 2), .Cells(Zeile, 2).End(xlUp).Offset(0, 1)).ClearContents
End If
For ii = LBound(varArr) To UBound(varArr)
If iJ " & arrVert(iJ - 1) 'Ausreißer nach oben
End If
Cells(Zeile, 3) = varArr(ii) 'Häufigkeit
Zeile = Zeile + 1: iJ = iJ + 1
Next
End With
End Sub
Function fncHaeufigkeit(rngWerte As Range, arrVerteilung As Variant) As Variant
Dim arrHaeufig() As Long, varWert, ii As Integer
'rngWerte = Zellbereich für den die Häufigkeitsverteilung ermittelt werden soll
'arrVerteilung = Array/Matrix mit den Wertebereichen der Verteilung in aufsteigender Folge
ReDim arrHaeufig(LBound(arrVerteilung) To UBound(arrVerteilung) + 1)
For Each varWert In rngWerte.Cells
If IsNumeric(varWert) Then
For ii = LBound(arrVerteilung) To UBound(arrVerteilung)
If varWert.Value Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen