Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Häufigkeit je Begriff einer Spalte
 
 
 
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.
 
 
Tabelle1
 ABCD
1Begriffe BegriffAnzahl von Begriff
2London London1
3New York New York3
4Boston Boston2
5Amsterdam Amsterdam1
6Berlin Berlin2
7München München2
8München   
9Boston   
10New York   
11New York   
12Berlin   
13    
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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