AW: Daten auswerten Anzahl von Nummern Top 20
05.12.2008 18:10:15
Nummern
Hallo Sebastian,
angenommen, deine Nummern stehen in Spalte A ab Zeile 2, dann (aus einer anderen Anwendung) sollte es so gehen. Wenn du dann noch sortierst kommst du auch auf dein 20 besten.
Option Explicit
Public Sub WieOft()
' Namen in A2:A65536
' Zahlen in B2:B65536
' Spalte C frei
' Überschrift in A1 "Namen"
' Überschrift in B1
Dim Dic_Zaehlen
Dim Dic_Summe
Dim arr
Dim L As Long
Set Dic_Zaehlen = CreateObject("Scripting.Dictionary")
Set Dic_Summe = CreateObject("Scripting.Dictionary")
Dic_Zaehlen("Namen") = "'=Zählenwenn()"
Dic_Summe("Namen") = "'=Summewenn()"
arr = Range("A1").CurrentRegion
For L = 2 To UBound(arr)
Dic_Zaehlen(arr(L, 1)) = Dic_Zaehlen(arr(L, 1)) + 1 'Das Item um 1 hochzählen
'Dic_Summe(arr(L, 1)) = Dic_Summe(arr(L, 1)) + arr(L, 2) 'Den Wert in B zu dem Item _
dazuaddieren.
Next L
' Ausgabe in D:F
Range("D1").Resize(Dic_Zaehlen.Count) = WorksheetFunction.Transpose(Dic_Zaehlen.keys)
Range("E1").Resize(Dic_Zaehlen.Count) = WorksheetFunction.Transpose(Dic_Zaehlen.Items)
'Range("F1").Resize(Dic_Zaehlen.Count) = WorksheetFunction.Transpose(Dic_Summe.Items)
End Sub
Gruß Peter