Tschüß
Rolf
Erstelle eine Pivot-Tabelle im Tabellenblatt 'Statistik'.
Damit lässt sich die Aufgabe recht einfach und umfassend lösen.
Mit freundllichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Es ist nicht dringend! Vielleicht findest du ja mal einen PC mit Excel?
Vielen Dank für deine Hilfe!
Tschüß
Rolf
Hier ist das fertige Makro:
Sub zählen()
Sheets("Ergebnisse").Select
Range("J2:J1000").Select
Selection.Copy
Sheets("Statistik").Select
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select
Cells(1, 3) = "Klasse"
Cells(1, 4) = "Anzahl"
Range("A1:A100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E1:E2"), CopyToRange:=Range("C1"), Unique:=True
Range("D2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-3],RC[-1])"
Selection.AutoFill Destination:=Range("D2:D100")
For Each element In Range("D2:D100")
If element.Value = 0 Then element.Value = ""
Next
Range("D1").Select
Range("A2:D1000").Sort Key1:=Range("D2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("D1").Select
End Sub
Vielen Dank für deine Hilfe!
Tschüß
Rolf
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen