Excel 2003 VBA - Zählen wie oft 1 to 49 vorhanden ist ???

Question

hallo,

ich bräuchte etwas Hilfe zum Zählen von Zahlen mit VBA


- Die Zahlen 1 bis 49 stehen mehrfach in dem Bereich DW1:FS20

Nun soll gezählt werden wie oft die Zahl 1 vorkommt - wie oft die Zahl 2 vorkommt usw. bis zur Zahl 49

Wenn diese Werte bekannt sind soll absteigend sortiert werden
und im Bereich DW22:FS22 ausgegeben werden.

Also z.B.
49 20 12 4 16 usw.

49 steht in DW22 da diese am häufigsten vorgekommen ist
20 steht in DX22 da diese am zweit häufigsten vorgekommen ist
usw.

Kann mir hier jemand BITTE helfen?

Danke vorab

Sarah

Answer 1

sorry, das war die falsche Kopie

Option Explicit

Private Sub CommandButton1_Click()
Dim intI As Integer
Application.ScreenUpdating = False
Range("DW22:FS23").ClearComments
For intI = 127 To 175
Cells(22, intI).Value = intI - 126
Cells(23, intI).Value = WorksheetFunction.CountIf(Range("DW1:FS20"), Cells(22, intI).Value)
Next
Range("DW22:FS23").Select
Selection.Sort Key1:=Range("DW23"), Order1:=xlDescending, Header:=xlGuess
Range((Cells(22, 126 + WorksheetFunction.CountIf(Range("DW23:FS23"), ">0") + 1)), (Cells(22, 175))).ClearContents
Range("DV1").Select
End Sub

Gruß
Rainer

Answer 2

hallo Rainer,

perfekt - auf Anhieb war es richtig !!!


Nochmals vielen lieben Dank für deine große Mühe

DANKE !!!


LG
Sarah