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