Gruppe
Allgemein
Problem
Spalte A soll nach der in einem zweiten Blatt festgelegten Sortierfolge sortiert werden.
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