In einer Spalte befinden sich diverse Bezeichnungen. In einer Nachbarspalte soll nun jeder Begriff einmalig genannt und in der Nebenspalte die Anzahl des Vorkommens eingetragen werden. Diese Aufgabe läßt sich natürlich hervorragend mit einer Pivottabelle lösen, aber falls es mal in einer VBA-Prozedur gebraucht wird, so kann der u.g. Code genutzt werden.

 

 

 

 

In diesem Beispiel stehen die Begriffe in Spalte A.

 

Der Code für ein allgemeines Modul.

 

Public Sub Haeufigkeit()

'#####################################

'Code für ein allgemeines Modul

'Code listet jeden Begriff der Spalte A einmalig in Spalte C. Anzahl in D.

'Autor: Jürgen Hennekes

'#####################################

Dim objDic As Object

Dim lngZ As Long

 

Set objDic = CreateObject("Scripting.Dictionary")

 

For lngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row

  objDic(Cells(lngZ, 1).Value) = objDic(Cells(lngZ, 1).Value) + 1

Next

 

Range("C2").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.keys)

Range("D2").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.Items)

 

End Sub