Modus bilden Mit VBA
16.08.2013 10:25:11
Max
Ich versuche eine Statistik zu analysieren und müsste den Modus bilden, also alle gleichen Werte zusammenfassen und die Anzahl anzeigen.
Jedoch gelingt mir es nicht die Werte in die verschiedenen Zeilen der Spalte zu schreiben, sondern alles wird in eine Zeile getan, was bei über 3000 Werten recht unübersichlich ist.
Hier mein code:
Sub Anzahl2()
Dim vVal As Variant, vRes() As Variant
Dim rng As Range
Dim lngI As Long
Dim strMsg As String
Set rng = Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
vVal = rng
ReDim vRes(0)
vRes(0) = "###"
For lngI = 1 To UBound(vVal, 1)
If Not IsNumeric(Application.Match(vVal(lngI, 1), vRes, 0)) Then
strMsg = strMsg & vVal(lngI, 1) & vbTab & vbTab & Application.CountIf(rng, vVal(lngI, 1) _
) & vbLf
ReDim Preserve vRes(UBound(vRes) + 1)
vRes(UBound(vRes)) = vVal(lngI, 1)
End If
Next
If Len(strMsg) > 0 Then
ActiveSheet.Range("D2:D3051") = strMsg
End If
End Sub
Es soll dann so aussehen:
In spalte D werden die gleichen Werte angezeigt und daneben in Spalte E wie oft sie vorkommen.
Gruß Max