Gruppe
Allgemein
Bereich
Sortieren
Thema
Sortierung nach Sortierfolge in zweitem Blatt
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