Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.10.2025 18:27:08
Formel anstelle XVWERWEIS für alte Excel-Version
07.10.2025 15:42:10
Identische-Tabellen-identische Sub's funktionieren nicht...
07.10.2025 09:25:19
Bedingte Formatierung mit bezug auf anderes TabellenBlatt
07.10.2025 08:24:37
Formel mit dynamischer Name aus Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Häufigkeiten ermitteln

Forumthread: Häufigkeiten ermitteln

Häufigkeiten ermitteln
12.10.2020 22: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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zählenwenn()? owT
12.10.2020 22:53:49
Rudi
AW: Häufigkeiten ermitteln
12.10.2020 23: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

Anzeige
AW: Häufigkeiten ermitteln
13.10.2020 01: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
Anzeige
AW: klassischer Fall für eine PIVOTauswertung owT
13.10.2020 08:45:56
neopa
Gruß Werner
.. , - ...
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige