Gruppe
Allgemein
Problem
Die Werte in Spalte A sollen nach Häufigkeit des Vorkommens sortiert werden.
StandardModule: basMain
Sub Sortieren()
Range("A1").Sort _
key1:=Range("A1"), _
order1:=xlAscending, _
header:=xlNo
Range("B1").Formula = "=countif(A:A,A1)"
Range("B1:B" & Range("A1") _
.CurrentRegion.Rows.Count).FillDown
Range("A1").Sort _
key1:=Range("B1"), _
order1:=xlDescending, _
header:=xlNo
Columns("B").ClearContents
End Sub