VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte nach Häufigkeit sortieren

Gruppe

Allgemein

Bereich

Sortieren

Thema

Werte nach Häufigkeit 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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Sortieren