Rangliste der häufigsten Einträge eines Bereiches

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Toljan,
zB so:
Userbild

Diese Auswertungsdaten basieren auf einer BspMatrix mit 20 Zeilen und 10 Spalten, die die 27 BuchstabenNamen des griechischen RepräsentativZiffernAlfabets in zufälliger Anordnung und Anzahl enthält. Die pluralen MatrixFmln in den 4 Spalten lauten (unsichtbare grau):
V1:V27: {=SVERWEIS(X1:X27;W1:Y27;3;0)}
W1:W27: {=ZÄHLENWENN($A$18:$J$37;Y1:Y27)+(27-ZEILE(X1:X27))/100}
X1:X27: {=KGRÖSSTE(W1:W27;ZEILE(W1:W27))}
Y1:Y27: {=MTRANS(VSplit(VJoin($A$18:$J$37;;-1)))}
mit Format (V1:W27): Standard
und Format (X1:Y27): # ##0
Die letzte Fml basiert auf der Anwendung 2er VBA-basierter Standard-UDFs aus dem Archiv, die in den neuesten Xl-Versionen inkl Abo-Version 365 ggf durch neue Xl-Fktt ersetzt wdn könnten.
Um den PlatzBedarf zu minimieren und gleichzeitig ein weiteres Bsp für die sinnvolle Anwendung von VerbundZellen zu liefern, wurden die beiden nicht informationsrelevanten Hilfsspalten jeweils als verborgene 2.SpaltenZelle der beiden zeilenweisen VerbundZellen angelegt. Um das zu erreichen, muss für jeden Verbund zuerst ein vorformatiertes leeres Muster per Verbinden über (Verbinden-Menü!) angelegt wdn. Dieses wird dann mit dem FormatPinsel auf den jeweiligen ErgebnisBereich übertragen.
Feedback nicht unerwünscht! Morhn, Luc :-?
„Die Intelligenzmenge ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Hi
bei VBA-gut folgender Vorschlag:
kopiere dir diesen Code in ein allgemeines Modul:

Function HäufigsteWörter(Bereich) As Variant
Dim dic As Object
Dim X
Dim Worte
Dim Anzahl, A
Dim i As Long
Dim Erg() As String
Set dic = CreateObject("Scripting.dictionary")
'--- Häufigkeiten pro Wort ermitteln
For Each X In Bereich
X = CStr(X)
dic(X) = dic(X) + 1
Next
Worte = dic.keys
Anzahl = dic.Items
'--- Häufigkeit eindeutig machen
For i = 0 To UBound(Anzahl)
Anzahl(i) = Anzahl(i) + 1 / (i + 2)
Next
'--- Ergebnisausgabe
ReDim Erg(1 To Application.Caller.Rows.Count, 1 To Application.Caller.Columns.Count)
For i = 1 To WorksheetFunction.Min(UBound(Erg), dic.Count)
A = WorksheetFunction.Large(Anzahl, i)
Erg(i, 1) = Worte(WorksheetFunction.Match(A, Anzahl, 0) - 1)
If UBound(Erg, 2) > 1 Then Erg(i, 2) = Int(A)
Next
HäufigsteWörter = Erg
End Function

dir steht dann die Funktion "HäufigsteWörter" zur Verfügung.
zur Eingabe:
für die Top5 markiere einen Zellbereich der 5 Zeilen hoch und 2 Spalten breit ist
gib als Formel ein: =HäufigsteWörter(A1:X200)
schließe die Eingabe mit STRG+SHIFT+ENTER ab.
der Zellbereich wird dann mit den Ergebnissen ausgefüllt.
in der ersten Zeile steht das häufigste Wort, in der zweiten das zweithäufigste usw.
in der Spalte daneben steht dann die jeweilige Anzahl.
wenn du die nicht brauchst dann markiere den Zellbereich für die Ergebnisausgabe nur eine Spalte breit.
Diese Formel sollte auch bei größeren Datenmengen zügig berechnet werden.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Rangliste der häufigsten Einträge eines Bereiches

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Rangliste der häufigsten Einträge eines Bereiches

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread