Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
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
Inhaltsverzeichnis

Anzahl der häufigsten Einträge ermitteln

Anzahl der häufigsten Einträge ermitteln
29.08.2016 07:52:14
ExcelDirk
Wertes Forum,
in einer Spalte stehen Projektnummern. Ich möchte nun diejenigen fünf Projektnummern ermitteln, die am häufigsten vorkommen.
Hab grad keine Idee! und bitte um Hilfe. Herzlichen Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzahl der häufigsten Einträge ermitteln
29.08.2016 08:26:04
baschti007
Hallo Dirk
Hier zwei Bsp. einmal VBA und einmal Formel
Gruß Basti
In Spalte a sind deine Projektnummern.
B2 =MODALWERT(A:A)
B3 {=MODALWERT(WENN(($A:$A"")*(ZÄHLENWENN(B$2:B2;$A:$A)=0);$A:$A))} ----- Bis B6 Runterziehen
C2 =ZÄHLENWENN(A:A;B2)--- Bis C6 Runterziehen
Oder VBA dann werden die Ergebnisse in Spalte p & Q gepackt

Sub Finden()
Dim j As Long
Dim C As Range, rngSuch As Range
last = Cells(1048576, 1).End(xlUp).Row
Set rngSuch = Range("a2:a" & last)
j = 2
Application.ScreenUpdating = False
For Each C In rngSuch
If Not IsEmpty(C) And [p:p].Find(C, lookat:=xlWhole) Is Nothing Then
Cells(j, "P") = C
Cells(j, "Q") = Application.CountIf(rngSuch, C)
j = j + 1
End If
Next C
Range("P2:Q" & last).Sort key1:=[q1], Order1:=xlDescending, Header:=xlNo
Range("P7:Q" & last).Clear
Columns("p:q").AutoFit
Application.ScreenUpdating = True
End Sub

Anzeige
oder über Pivot
29.08.2016 09:03:58
MB12
Hallo Dirk,
über Wertfeldeinstellungen - Wertefilter - Top 5
Gruß, Margarete

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige