Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige