Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Sortierung nach Sortierfolge in zweitem Blatt

Gruppe

Sortieren

Problem

Spalte A soll nach der in einem zweiten Blatt festgelegten Sortierfolge sortiert werden.

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

StandardModule: basMain

Sub SpecialSort()
   Dim iCount As Integer
   iCount = Application.CustomListCount
   Application.AddCustomList _
      Worksheets("Tabelle2").Range("A1").CurrentRegion
   Range("A1").Sort key1:=Range("A1"), _
      order1:=xlAscending, ordercustom:=iCount + 2
   Application.DeleteCustomList iCount + 1
End Sub