VBA : Werte einordnen

Guten Abend Zusammen,
leider habe ich zu meinem Problem die Suchfunktion betätigt, wurde aber nicht fündig. Falls es das Thema irgendwo gibt, gerne link posten. Andernfalls schonmal danke für Eure Hilfe!
Mein Problem:
Ich hab ein Array, in dem in der ersten Spalte 50.000 verschiedene Werte stehen. Z.B. zwischen 0 und 8000. Nun möchte ich diese Werte zählen und in Kategorien zwischen 0 und 100 Prozent mit 100 Feldern einordnen.
Beispiel:
Wert 8000 tritt 5 mal auf, dann hat die Kategorie 100%: 5.
Wert 4000 tritt 3 mal auf, dann hat die Kategorie 50%: 3.
usw. so möchte ich gerne 50.000 Werte einsortieren.
Ungern möchte ich 100 if größer als Then schreiben.
Dafür suche ich einen Automatismus, der dies übernimmt.
Jemand spontan ein Idee für mich?
Vielen Dank für Eure Mühen!
MFG Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel
Nehmen wir mal an das sind deine Daten:
Tabelle1

	A
1	7738
2	2195
3	5885
4	2029
5	5910
6	6096
7	5595
8	2483
9	1848
10	7049
11	10
12	4622
13	7972
14	6325
15	3140
16	2306
17	usw. bis A50000

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Jetzt lass mal diesen Code laufen:

Option Explicit

Sub machs()
    Dim myDic As Object
    Dim Arr As Variant
    Dim L As Long
    Const Zahl As Long = 8000
    Arr = Range("A1:A50000")
    Set myDic = CreateObject("Scripting.Dictionary")
    For L = LBound(Arr) To UBound(Arr)
        myDic(Arr(L, 1) / Zahl) = myDic(Arr(L, 1) / Zahl) + 1
    Next
    With Range("B1").Resize(myDic.Count)
        .Value = WorksheetFunction.Transpose(myDic.keys)
        .NumberFormat = "0.0000%"
        .Sort Range("B1"), xlAscending, , , , , , xlNo
    End With

    Range("C1").Resize(myDic.Count) = WorksheetFunction.Transpose(myDic.items)

End Sub

Ausgabe ist dann sowas:
Tabelle1

	A	B	C
1	6261	0,0000%	8
2	370	0,0125%	7
3	5418	0,0250%	6
4	6466	0,0375%	6
5	6462	0,0500%	6
6	6571	0,0625%	11
7	3060	0,0750%	3
8	7772	0,0875%	9
9	6522	0,1000%	6
10	4277	0,1125%	8
11	10	0,1250%	3
12	892	0,1375%	8

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

Sub xxx() Dim Erg(1 To 100, 1 To 1) As Long Dim Daten Dim D Dim Partition As Double Daten = ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, 1).Value Partition = ActiveSheet.Range("F1").Value For Each D In Daten Erg(WorksheetFunction.RoundUp(D / Partition, 0), 1) = Erg(WorksheetFunction.RoundUp(D / _ Partition, 0), 1) + 1 Next Range("D3").Resize(100, 1).Value = Erg End Sub

Beliebteste Forumthreads (12 Monate)

	C	D
3	1%	537
4	2%	84
5	3%	62

	C	D
3	1%	342
4	2%	196
5	3%	83

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA : Werte einordnen

10 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)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread