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