Häufigkeit von Werten ermitteln
Werten
ich habe folgendes Problem und leider kein Idee:
Eine Tabelle die eine Spalte enthält, in der Werte stehen, die auch mehrfach vorkommen können.
z.B.
115,4
1234,8
115,4
12,6
12,6
Ich möchte per VBA ermitteln welcher Wert wie oft vorkommt.
z.B.
115,4 2
1234,8 1
12,6 2
Ich habe einfach keine Idee, wie ich anfange. Die obigen Werte habe ich schon mal in ein Array eingelesen,
da Leerzellen oder Werte ungleich Null nicht gezählt werden sollen.
Sub test()
Dim Zeile As Double
Dim arr(500) As Variant 'String 'Oder was auch immer der Inhalt wird
Dim arrZähler As Integer
On Error Resume Next
arrZähler = -1 'Ein Array fängt immer mit 0 als erstem Element an
With Worksheets("Januar 2012")
For Zeile = 6 To .Cells(Rows.Count, 23).End(xlDown).Row
If Cells(Zeile, 23) > 0 Then
arrZähler = arrZähler + 1
arr(arrZähler) = Cells(Zeile, 23).Value
End If
' MsgBox arr(Zeile)
Next Zeile
End With
'Hier schreiben wir die Zellen irgendwoanders hin und werten die Inhalte aus.
For i = 0 To arrZähler
Cells(i + 500, 1) = arr(i)
Next
End Sub
Mit freundlichen Grüßen
Bernd
Anzeige