Excel 2010 doppelt oder häufiger vorkommende Werte einer Spalte zählen?

Question

Ich habe einige Werte in Spalte per Zufallszahl eintragen lassen, nun möchte ich das alle doppelt oder mehr vorkommenden Werte mir angezeigt werden.
Etwa so:
1
2
4
2
2
3
1

(2x1, 3x2)

Kann mir da jemand helfen. 
Bitte darauf achten, dass es die aktuelle excel version ist.

LG und danke schon mal für hilfreiche antworten!

Hanz · Accepted Answer

Das VBA Makro zählt alles in Spalte A und schreibt die Häufigkeit in Spalte B.

Sub Multi_zaehlen()

Dim loZeile As Long, counter As Integer, loLetzte As Long

loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1) _
    .End(xlUp).Row, Rows.Count)
        For loZeile = 1 To loLetzte
            counter = Application.WorksheetFunction.CountIf(Columns("A:A"), _
                Cells(loZeile, 1))
            Cells(loZeile, 2) = counter
        Next
End Sub

Excel 2010 doppelt oder häufiger vorkommende Werte einer Spalte zählen?

1 Antwort