Gruppe
Allgemein
Problem
Die Sortierspalten sind über die Gültigkeitsfelder G1 und I1 festzulegen.
StandardModule: Modul1
Sub Sortieren()
Range("A1").CurrentRegion.Sort _
key1:=Cells( _
2, _
WorksheetFunction.Match(Range("G1").Value, _
Range("Header"), 0)), order1:=xlAscending, _
key2:=Cells( _
2, _
WorksheetFunction.Match(Range("I1").Value, _
Range("Header"), 0)), order2:=xlAscending, _
header:=xlYes
End Sub