Häufigkeiten ermitteln

Forumthread: Häufigkeiten ermitteln
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Häufigkeiten ermitteln

13.10.2020 00:22:05

Steffen

Guten Abend,
hätte noch ein kleines Anliegen, wenn ich eine Tabelle habe mit Spalte "Jahr" habe, sollen die Jahre nach ihrer Häufigkeit bestimmt werden. Wie kann diese in VBA am besten umgesetzt werden? Vielen Dank für die Hilfe :)
z.B.
Jahr
2016
2016
2016
2014
2014
2012

Lösung sollte sein:
Jahre | Anzahl
2016 |3
2014 |2
2012 |1
VG Steffen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Zählenwenn()? owT

13.10.2020 00:53:49

Rudi
AW: Häufigkeiten ermitteln

13.10.2020 01:27:57

chris
AW: Häufigkeiten ermitteln

13.10.2020 03:00:56

Günther
AW: klassischer Fall für eine PIVOTauswertung owT

13.10.2020 10:45:56

neopa

Zählenwenn()? owT

13.10.2020 00:53:49

Rudi

AW: Häufigkeiten ermitteln

13.10.2020 01:27:57

chris

Hallo Steffen,
hier der Code für VBA.


Sub test()
maxRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim myYears As New Scripting.Dictionary
Dim temp As Integer
For x = 2 To maxRow
cb = Cells(x, 1)
If Not myYears.Exists(cb) Then
myYears.Add cb, 1
Else
temp = myYears(cb)
temp = temp + 1
myYears.Item(cb) = temp
End If
Next
Dim cnt As Integer
cnt = 2
For Each ItemKey In myYears
Cells(cnt, 2) = ItemKey
Cells(cnt, 3) = myYears.Item(ItemKey)
cnt = cnt + 1
Next
End Sub

AW: Häufigkeiten ermitteln

13.10.2020 03:00:56

Günther

Moin,
Version ohne Relevanz? Dann sind das über Daten | Abrufen und transformieren nur ein paar Mausklicks (Stichwort Gruppieren).

Gruß
Günther | mein Excel-Blog

AW: klassischer Fall für eine PIVOTauswertung owT

13.10.2020 10:45:56

neopa

Gruß Werner
.. , - ...