Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte nach Häufigkeit sortieren

Gruppe

Sortieren

Problem

Die Werte in Spalte A sollen nach Häufigkeit des Vorkommens sortiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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